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

Program sadadasf; var i,l,h,g: integer;     a: array[1..101] of integer; begin  for i: =1 to 100 do  begin      l: =random(41)-20;     a[i]: =l;     if l< 0 then h: =h+1;   if l> 0 then g: =g+1;   end; writeln('количество отрицательных чисел: ', h); writeln('количество положительных чисел: ', g); end.

640*480=307200

256 цветов кодируется 1-м байтом

307200 байт

512кбайт=524288 байт

не более 1 страницы

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.