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

var a:array[1..100] of integer;i,p,m:integer;beginp:=0;m:=0;for i:=1 to 100 do begina[i]:=random(-20,20);if a[i]>0 then p+=1 elsem+=1;end;writeln('Положительных - ',p,' отрицательных - ',m);end.