1)Как, используя функцию random(X), можно получать числа в спектрах: от 1

1)

от 1 до 10  = random(11)

от -10 до +10  = random(21) - 10

от 50 до 100  = random(51) + 50

2)

от 10 до 14

3) program zz1;

const n = 100; // задаем количество чисел в массиве

var  i, s, k:integer; // задаем переменные целого типа

m:array [1..n] of integer;

begin

for i:=1 to n do  // получаем n чисел случайных и записываем их в массив

m[i]:=random(41)-20;

for i:=1 to n do  // организуем цикл, в котором переберем все числа массива

begin

 if m[i] lt; 0  then s:=s + 1;  // проверяем, если очередной элемент массива отрицательный, то считаем его

 if m[i] gt; 0  then k:=k + 1;  // проверяем, если очередной элемент массива положительный, то считаем его

end;

writeln( количество отрицательных частей массива = , s); // выводим ответ

writeln( количество положительных частей массива = , k);

end.