Вопрос по информатике:
По тексту программы определите условие задачи
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.
- 02.04.2018 11:51
- Информатика
- remove_red_eye 11589
- thumb_up 21
Ответы и объяснения 2
Вычислить среднее арифметическое среди положительных чисел, введенных пользователем (количество чисел тоже определяет пользователь), вывести его с двумя знаками после запятой и четырьмя перед запятой.
- 03.04.2018 16:27
- thumb_up 19
Считает среднее арифметическое положительных и делит его на 8. Количество чисел определяет пользователь
- 04.04.2018 02:50
- thumb_up 17
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.