Дан массив размера N. Сформировать новый массив, в который поместить элементы старого, начиная от k до k+7 позиции. В новом массиве найти среднее арифметическое максимального и минимального элементов.
Рандом
var a:array[1..255]of integer;
b:array[1..255]of integer; i,k,x,y,max,min:integer; sr:real;
begin max:=0;min:=999;
randomize;
writeln('Введи количество символов в 1 массиве');
read(x);
For i:=1 to x do
a:=random(10);{Ограничение рандома 10}
Writeln ('Введи позицию K');
read(k);
for i:=1 to 7 do begin
b:=a[k];
k:=k+1; end;
for i:=1 to 7 do begin
if b>max then max:=b;
if b
sr:=(max+min)/2;
for i:=1 to x do
write(a,' ');
writeln;
for i:=1 to 7 do
write(b,' ');
writeln;
writeln('Среднее значение = ',Sr:0:2);
end.
⇢