Alsagelv
7 год назад
Дан массив из 50 целых чисел. Найти среднее арифметическое его элементов.
ОТВЕТЫ
Ипполит
Jul 17, 2019
Паскаль:
var i, s : integer;
n: real;
begin
n := 0;
for i:= 1 to 50 do begin
readln(s);
n:= n + s;
end;
n:= n / 50;
end.
var i, s : integer;
n: real;
begin
n := 0;
for i:= 1 to 50 do begin
readln(s);
n:= n + s;
end;
n:= n / 50;
end.
81
