Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.

1

Ответы и объяснения

  • Listr
  • середнячок
2013-03-28T08:46:58+00:00
Program 4isla;
var
N, p, o, z, i: byte;
A: integer;
Begin
Readln (N);
for i:=1 to N do
Begin
Readln (A);
If A > 0 then
p:=p+1;
if A < 0 then
o:=o+1;
if A = 0 then
z:=z+1;
End;
Writeln ('Положительных чисел - ', p);
Writeln ('Отрицательных чисел - ', o);
Writeln ('Нулей - ', z);
Readln;
End.