Обчислити середнє значення масиву, елементами якого є перші n членів, які утворені випадковим чином в діапазоні від 4 до 45.

program vpor;

var a:array [1..100] of real;

n, i, j:integer;

c:real;

begin

write('Введіть кількість елементів масиву: n=');

readln (n);

for i:=1 to n do

begin

write ('a[', i, ']=');

readln (a[i]);

end;

for i:=1 to n-1 do

for j:=i+1 to n do

if a[i]>a[j] then begin

c:=a[i];

a[i]:=a[j];

a[j]:=c;

end;

writeln ('Впорядкований масив:');

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

end.