Предмет: Другие предметы,
автор: RL12345
Составить программу, которая вычисляет количество введенных чисел больше нуля.
Ответы
Автор ответа:
0
program mas;
uses crt;
var a,n,i,kp,ko,kn: integer;
begin
clrscr;
write('n=');
readln(n);
writeln('Введите ',n,' целых чисел');
kp:=0;ko:=0;kn:=0;
for i:=1 to n do
begin
readln(a);
if a>0 then kp:=kp+1
else if a<0 then ko:=ko+1
else kn:=kn+1;
end;
writeln('количество отрицательных чисел= ',ko);
writeln('количество положительных чисел равных = ',kp);
writeln('количество нолей= ',kn);
readln;
end.
Похожие вопросы
Предмет: Математика,
автор: maryam0707
Предмет: Химия,
автор: marasykdenis
Предмет: Физика,
автор: shukriollohurozov
Предмет: Физика,
автор: Egor6549