Написать программу для нахождения среднего арифметического значения для массива. Массив заполняется следующим образом
for i:=1 to 5 do a[i]:=2*i-1

var i,s: integer;

a: array [1..5] of integer;

begin

for i:=1 to 5 do

begin

a[i]:=2*i-1;

s:=s+a[i];

write(a[i],'  ');

end;

writeln;

writeln('Среднее арифметическое элементов массива - ',s/5)

end.