Вот как можно использовать функцию random(X) для получения чисел в указанных диапазонах:
Для диапазона от 1 до 10: random(10) + 1 Для диапазона от -10 до +10: random(21) - 10 Для диапазона от 50 до 100: random(51) + 50
program RandomArray;
var Arr: array[1..100] of integer; i, PositiveCount, NegativeCount: integer;
begin PositiveCount := 0; NegativeCount := 0; // Заполняем массив случайными значениями от -20 до 20 for i := 1 to 100 do begin Arr[i] := random(41) - 20; if Arr[i] > 0 then PositiveCount := PositiveCount + 1 else if Arr[i] < 0 then NegativeCount := NegativeCount + 1; end; writeln('Количество положительных чисел: ', PositiveCount); writeln('Количество отрицательных чисел: ', NegativeCount); end.
program MatchingArrays;
var A, B: array[1..20] of integer; i, MatchingCount: integer;
begin MatchingCount := 0;
// Заполняем массивы случайными числами от 1 до 5 for i := 1 to 20 do begin A[i] := random(5) + 1; B[i] := random(5) + 1; if A[i] = B[i] then begin writeln('Номер: ', i, ' Значение: ', A[i]); MatchingCount := MatchingCount + 1; end; end;
if MatchingCount = 0 then writeln('Совпадений не найдено.'); end.
Существует множество способов получения случайных чисел. Один из наиболее распространенных - использование встроенных функций генерации случайных чисел, как мы сделали выше с random(X). Также можно использовать аппаратные генераторы случайных чисел, данные из внешних источников (например, датчики окружающей среды), а также алгоритмы генерации псевдослучайных чисел. Выбор метода зависит от конкретных потребностей и требований вашего приложения.