const n=15;
var a:array [1..n] of integer;
i,s,v:integer;
begin
writeln('Массив: ');
for i:= 1 to n do
a[i]:= Random(90)+10;
s:=s+a[i];
write (a[i],' ')
end;
writeln;
writeln('Элементы массива в обратном порядке: ');
for i:= n downto 1 do write (a[i],' ');
v:=a[1];
a[1]:=a[n];
a[n]:=v;
writeln('Поменять местами первый и последний элементы: ');
for i:= 1 to n do write (a[i],' ');
writeln('Среднее арифметическое всех элементов массива равно ',s/n:0:3)
end.
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.