Заполнить одномерный массив положительными и отрицательными числами, размерности 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.