Написать программу для решения следующей задачи: вычислить сумму и количество…

Var sum, count, t: integer; begin sum: =0; count: =0; while not eoln do begin read (t); if t > 0 then begin sum: =sum+t; count: =count+1; end; writeln (sum, ', count); end. Если количество элементов указаноvar sum, count, t, n, i: integer; begin sum: =0; count: =0; read (n); for i: =1 to n do begin read (t); if t > 0 then begin sum: =sum+t; count: =count+1; end; writeln (sum, ', count); end.