Ответ(ы) на вопрос:
Гость
var
n, cnt, sum, i, t: integer;
begin
read(n);
cnt := 0;
sum := 0;
for i := 1 to n do
begin
read(t);
if t > 0 then
begin
inc(cnt);
sum := sum + t;
end;
end;
writeln(sum / cnt : 0 : 1);
write(cnt);
end.
Не нашли ответ?
Похожие вопросы