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

var a:array[1..8]of integer;b,c,d:integer;beginwriteln('Введите элементы массива');c:=0;d:=0;for b:=1 to 8 dobeginreadln(a[b]);if a[b]>0 then c:=c+1;if a[b]<0 then d:=d+1;end;writeln('Количество положительных элементов равняется ',c);writeln('Количество отрицательных элементов равняется ',d);end.