По тексту программы определите условие var i,x,s,k,n: integer; begin s: =0; k: =0; readln(n); for i: =1 to n do begin read(x); if x> 0 then begin s: =s+x; k: =k+1; end; end; if k: =0 then writeln(s) else writeln(s/k: 4: 2); end.

Вычислить среднее арифметическое среди положительных чисел, введенных пользователем (количество чисел тоже определяет пользователь), вывести его с двумя знаками после запятой и четырьмя перед запятой.

Считает среднее арифметическое положительных и делит его на 8. Количество чисел определяет пользователь