Ответы
Ответ дал:
0
Program asd;
Uses crt;
var a:array [1..100] of integer;
i:integer;
s:real;
begin
readln (n);
for i:=1 to n do
begin
readln (a[i]);
s:=s+a[i];
end;
s:=s/n;
writeln (s);
end.
Похожие вопросы
2 года назад
2 года назад
2 года назад
8 лет назад
8 лет назад
9 лет назад