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