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

можно указывать так mas[i]:=Random(-80,80) ; будут и положительные и отрицательные

program chisla;var mas:array [1..100] of integer;i,ko,kp:integer;beginko:=0;kp:=0;Randomize;for i:=1 to 100 do begin    mas[i]:=Random(41)-20;   if mas[i]<0 then ko:=ko+1;   if mas[i]>0 then kp:=kp+1;  end;Writeln('Положительных элементов=',kp);Writeln('Отрицательных элементов',ko) end.