Написать программу для нахождения среднего арифметического значения для массива. Массив заполняется следующим образом 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
a[i]:=2*i-1;
s:=s+a[i];
write(a[i],' ');
end;
writeln;
writeln('Среднее арифметическое элементов массива - ',s/5)
end.