По тексту программы определите условие задачи 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. Количество чисел определяет пользователь