Сформировать одномерный массив:
n1 вывести элементы массива в обратном порядке.
n2 поменять местами первый и последний элементы.
n3 найти среднее арифметическое элементов массива.
Ответ
5/5 (1 оценка)
2
13nisa13 2 года назад
Светило науки - 7 ответов - 1500 раз оказано помощи

const n=15;

var a:array [1..n] of integer;

i,s,v:integer;

begin

writeln('Массив: ');

for i:= 1 to n do

begin

a[i]:= Random(90)+10;

s:=s+a[i];

write (a[i],'  ')

end;

writeln;

writeln('Элементы массива в обратном порядке: ');

for i:= n downto 1 do write (a[i],'  ');

writeln;

v:=a[1];

a[1]:=a[n];

a[n]:=v;

writeln('Поменять местами первый и последний элементы: ');

for i:= 1 to n do write (a[i],'  ');

writeln;

writeln('Среднее арифметическое всех элементов массива равно ',s/n:0:3)

end.