Заполнить одномерный массив положительными и отрицательными числами, размерности 8. Найти количество положительных и отрицательных элементов.

Var a:array[1 ... 8]of integer;

b, c, d:integer;

begin

writeln ('Введите элементы массива') ;

c:=0;

d:=0;

for b:=1 to 8 do

begin

readln (a[b]) ;

if a[b]>0 then c:=c+1;

if a[b]<0 then d:=d+1;

end;

writeln ('Количество положительных элементов равняется ', c) ;

writeln ('Количество отрицательных элементов равняется ', d) ;

end.