Вопрос по информатике:
Ввести 7 чисел и посчитать количество чисел больше 0, и сумму чисел меньше или равных 0.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 01.08.2015 00:36
- Информатика
- remove_red_eye 19496
- thumb_up 49
Ответы и объяснения 2
var
c, summ:real;
count, i:integer;
begin
count := 0;
summ := 0;
for i := 1 to 7 do
begin
write('Введите число ');
readln(c);
if c > 0 then
count := count + 1
else
summ := summ + c;
end;
writeln('Количество числел больших 0 равно ', count);
writeln('Сумма чисел меньших либо равных 0 равна ', summ);
end.
- 02.08.2015 15:03
- thumb_up 46
var
s,n,i,a:integer;
begin
For i:=1 to 7 do begin
readln(a);
if a>0 then
n:=n+1
else
s:=s+a;
end;
writeln('polozitelnih=', n, ' summa otrizatelnih=', s);
end.
- 03.08.2015 21:22
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.