Вопрос по информатике:
Составить массив из 10 целых чисел и подсчитать сумму отрицательных и количество положительных.
Пожаловаться
- 25.08.2016 20:25
- Информатика
- remove_red_eye 5829
- thumb_up 49
Ответы и объяснения 1
Program chisla;
Var A: array [1..10] of integer;
o,p,i:integer;
Begin
For i:=1 to 10 do Readln(A[i]);
For i:=1 to 10 do Begin
If A[i]<0 then o:=o+A[i];
If A[i]>0 then p:=p+1;
End;
Write('Сумма отрицательных = ',o,'.'); Writeln('');
Write('Количество положительных = ',p,'.');
End.
Var A: array [1..10] of integer;
o,p,i:integer;
Begin
For i:=1 to 10 do Readln(A[i]);
For i:=1 to 10 do Begin
If A[i]<0 then o:=o+A[i];
If A[i]>0 then p:=p+1;
End;
Write('Сумма отрицательных = ',o,'.'); Writeln('');
Write('Количество положительных = ',p,'.');
End.
Пожаловаться
- 26.08.2016 01:47
- thumb_up 37
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы