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

Предыдущий
вопрос Следующий
вопрос

program CountNumbers;

var
N, number, positive, negative, zero : integer;
i : integer;

begin
positive := 0;
negative := 0;
zero := 0;

write('Enter the number of integers: ');
readln(N);

for i := 1 to N do
begin
write('Enter ', i, ' integer: ');
readln(number);

end;

writeln('Number of positive integers: ', positive);
writeln('Number of negative integers: ', negative);
writeln('Number of zeros: ', zero);
end.

{ Test 1 }
// Input: N = 5, numbers = {3, -5, 0, 12, -7}
// Expected output: Positive = 2, Negative = 2, Zero = 1

{ Test 2 }
// Input: N = 3, numbers = {-1, -4, -2}
// Expected output: Positive = 0, Negative = 3, Zero = 0