Дан одномерный массив целых чисел.Написать программу подсчёта количества положительных и

на паскале?

да

Var ar : array [1..100] of integer;
i, pluscount,minuscount,zerocount : integer;
begin
readln(n); -считываем число элементов массива(если оно дано, я не знаю)
for i := 1 to n do
begin
read(ar[i]);  - считываем элемент массива, заносим его в массив
if (ar[i] gt; 0) then pluscount := pluscount+1; -если gt;0 -gt; увел. счетчик пол.чисел
if (ar[i] lt; 0) then minuscount := minuscount+1; -если lt;0 -gt; увел. счетчик отр.чисел
if (ar[i] = 0) then zerocount := zerocount+1; -если =0 -gt; увел. счетчик нулей
end;
writeln('В массиве ',pluscount,' положительных чисел, ',minuscount,' отрицательных чисел, ',zerocount,' нулей.');
end.