Question

сформировать одномерный массив:
1 вывести элементы массива в обратном порядке.
2 поменять местами первый и последний элементы.
3 найти среднее арифметическое элементов массива.

Answer 1

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.