Составить на языке Паскаль программу, которая запрашивает с клавиатуры N целых чисел и считает, сколько из них положительных, сколько отрицательных и сколько нулей. Разработать для программы не менее двух тестов и доказать правильность её работы.

var

number, N, npol, notr, n0, i: integer; {npol - количество положительных чисел, notr - количество отрицательных, n0 - количество нулей}

begin

writeln ('Введите N') ;

readln (N) ;

for i: = 1 to N do

begin

writeln ('Введите целое число') ;

readln (number) ;

if number < 0 then notr: = notr + 1;

if number > 0 then npol: = npol + 1;

if number = 0 then n0: = n0 + 1;

end;

writeln ('Было введено ', notr, ' отрицательных чисел, ', npol, ' положительных чисел, ', n0, ' нулей') ;

end.

А для тестов ты просто вводишь числа и проверяешь, правильно ли нашлось количество.

const N = 4;

var

a: array[1 ... 4] of integer;

i, c, c2, c3: integer;

begin

for i : = 1 to n do begin

readln (a[i]) ;

if (a[i] = 0) then inc (c)

else if (a[i] < 0) then inc (c2)

else inc (c3) ;

end;

writeln ('Нулевых эл.: ', c) ;

writeln ('Отрицательных эл.: ', c2) ;

writeln ('Положительных эл.: ', c3) ;

end.