Вопрос по информатике:
С клавиатуры вводятся N чисел. Составьте программу, которая определяет количество отрицательных, количество положительных и количество нулей среди введенных чисел. Значение N и сами числа вводится с клавиатуры.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 09.06.2015 09:14
- Информатика
- remove_red_eye 7977
- thumb_up 25
Ответы и объяснения 2
var
n,o,p,k,i:integer;
a:real;
begin
repeat
write ('N = ');readln(n);
until (n>0);
i:=0;
k:=0;
p:=0;
o:=0;
repeat
write ('Ввод: ');readln(a);
i:=i+1;
if a<0 then o:=o+1 else
if a>0 then p:=p+1 else k:=k+1;
until i=n;
writeln ('Кол-во положительных: ',p);
writeln ('Кол-во отрицательных: ',o);
writeln ('Кол-во нулей: ',k);
readln;
end.
;- 09.06.2015 12:39
- thumb_up 2
program aa;
var minus, plus, zero, N, C, Q : integer;
begin
zero:=0;
plus:=0;
minus:=0;
C:=0;
writeln('Введите количество чисел);
read(N);
writeln('Вводите числа');
while C
C:=C+1;
If Q=0 then zero:=zero+1;
If Q<0 then minus:=minus+1;
If Q>0 then plus:=plus+1;
end;
writeln('Нулей: ',zero);
writeln('Отрицательных: ',minus);
writeln('Положительных: ',plus);
end.
- 09.06.2015 12:39
- thumb_up 2
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.