1) Как, используя функцию random (X), можно получать числа в диапазонах: от 1 до 10, от - 10 до + 10, от 50 до 100? 2) какие значения может принимать целая переменная Y если в программе записано : Y : =10 + ranodom (5) ? 3) составьте программу заполнения массива из 100 чисел случайными значениями из диапозона от - 20 до 20. подсчитайте в этом массиве колличество положительных и колличество отрицательных значения

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] < 0 then s:=s + 1; / / проверяем, если очередной элемент массива отрицательный, то считаем его

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

end;

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

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

end.