С клавиатуры вводятся N чисел

[sivaeper]

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

[Alex TGM]

Что может быть непонятного в такой простейшей программе?
Задаешь массив, записываешь туда элементы с клавиатуры.
Затем задаешь ещё один массив(или 3 переменные), забиваешь его(их) количеством элементов с разными знаками. Количество элементов находишь простейшим циклом по всему массиву

[Ponkole]

Поставь мне + если не сложно

uses CRT
var n,a,pol,otr,nol, i:integer;
begin
clrscr;
read(n);
for i:=1 to n do
begin
read(a);
if a=0 then nol:=nol+1;
if a<0 then otr :=otr+1;
if a>0 then pol:=pol+1;
end;
clrscr;
writeln('отрицательные ', otr);
writeln('положительные ', pol);
writeln('нули ', nol);
end.

[sivaeper]

сделать нужно с циклом for while и repeat

[Ponkole]

с циклом while

uses CRT
var n,a,pol,otr,nol, i:integer;
begin
clrscr;
read(n);
i:=0;
while i<n do
begin
read(a);
if a=0 then nol:=nol+1;
if a<0 then otr :=otr+1;
if a>0 then pol:=pol+1;
inc(i);
end;
clrscr;
writeln('отрицательные ', otr);
writeln('положительные ', pol);
writeln('нули ', nol);
end.

с repeatom

uses CRT
var n,a,pol,otr,nol, i:integer;
begin
clrscr;
read(n);
i:=0;
repeat
begin
inc(i);
read(a);
if a=0 then nol:=nol+1;
if a<0 then otr :=otr+1;
if a>0 then pol:=pol+1;
end;
until i>n;
clrscr;
writeln('отрицательные ', otr);
writeln('положительные ', pol);
writeln('нули ', nol);
end.