Question

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

Answer 1

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.