Размещено 6 лет назад по предмету
Информатика
от mrdanil21
Инофрматика 11 класс(массивы)
Нужно переделать программу,чтобы она вмсето скммы-произведение и вычеслить среднее арифмитическое кот код:
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.