По тексту программы определите условие задачи 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.
Ответы:
11-03-2014 22:48
Вычислить среднее арифметическое среди положительных чисел, введенных пользователем (количество чисел тоже определяет пользователь), вывести его с двумя знаками после запятой и четырьмя перед запятой.
12-03-2014 06:03
Считает среднее арифметическое положительных и делит его на 8. Количество чисел определяет пользователь
⭐⭐⭐⭐⭐ Лучший ответ на вопрос «По тексту программы определите условие задачи 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.» от пользователя Lenchik Moiseeva в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.
Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!