Найти количество отрицательных и нечётных элементов.

[Wiedzzmin]

Необходимо сгенерировать одномерный массив из случайных чисел(положительных и отрицательных). Вывести его через пробел в одну строку, посчитать количество отрицательных и нечётных элементов.
Заранее спасибо!!

[ROMA2PVT]

kol:=0;
for i:=1 to n do
if (a[i]<0) and (odd(a[i]) then
begin
inc(kol);
end;
вывод количества.

ну а если по отдельности то:

kol:=0;
kol2:=0;
for i:=1 to n do
begin
if a[i]<0 then
inc(kol);
if odd(a[i]) then
inc(kol2);
end;
вывод количеств.