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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.