Сформировать одномерный массив:

1 вывести элементы массива в обратном порядке.

2 поменять местами первый и последний элементы.

3 найти среднее арифметическое элементов массива.

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.