Инофрматика 11 класс(массивы)

Елена в категроии Информатика, вопрос открыт 20.09.2018 в 13:49

Нужно переделать программу,чтобы она вмсето скммы-произведение и вычеслить среднее арифмитическое кот код:
Program Pa;
var A:array[1..5] of real;
S:real;
I:integer;
begin
for i:=1 to 5 do
begin
writeln('a[',i,']=');
readln(a[i]);
end;
S:=0;
for i:=1 to 5 do S:=S+A[i];
writeln('S=',S);
end.