составьте программу заполнения массива из 100 чисел случайными значениями из диапазона от -20 до 20. Подсчитайте в этом массиве количество положительных и количество отрицательных значений.

спасибо!а что такое pol и ort, inc?

pol,ort - переменные.

inc(x); - функция, то же самое что и: "x:=x+1".

var a: array[0..99] of Integer;i,pol,otr: Integer;beginfor i:=0 to 99 dobegina[i]:=random(41)-20;end;for i:=0 to 99 dobeginif a[i]>0 then Inc(pol);if a[i]<0 then Inc(otr);end;writeln('Положительных: ',pol);writeln('Отрицательных: ',otr);end.