Вопрос по информатике:
Вводятся 10 чисел.Вывести на экран суммы положительных и отрицательных чисел и их количество
- 27.09.2017 20:21
- Информатика
- remove_red_eye 11324
- thumb_up 7
Ответы и объяснения 1
Var a,b,c,d,m,i:integer;
beginfor i:=1 to 10 do
begin
writeln('Введите число');
read(m);
if m>0 then begin
a:=a+1;
c:=c+m
end
else
begin
b:=b+1;
d:=d+m;
end;
end;
writeln('Кол-во положительных равно ',a);
writeln('Кол-во отрицательных равно ',b);
writeln('Сумма положительных равна ',c);
writeln('Сумма отрицательных равна ',d);
end.
- 28.09.2017 22:05
- thumb_up 41
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.