Паскаль. помогите пожалуйста. 40 баллов

Паскаль. помогите пожалуйста. 40 баллов
Гость
Ответ(ы) на вопрос:
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы