ГДЗ по информатике 9 класс Семакин, Залогова, Русакова § 19. Одна задача обработки массива

1. Какие значения может принимать целая переменная Y, если в программе записано: Y: =10+random (5)?

В данном случае, переменная Y принимает значения в диапазоне от 10 до 14 включительно, так как random(5) генерирует случайное число от 0 до 4, и прибавление 10 дает диапазон от 10 до 14.

2. Введите в компьютер программу Example2. Выполните программу, получите результаты.

3. Используя функцию random (X), получите числа в диапазонах: от 1 до 10, от -10 до +10, от 50 до 100.

Вот как можно использовать функцию random(X) для получения чисел в указанных диапазонах:

Для диапазона от 1 до 10: random(10) + 1
Для диапазона от -10 до +10: random(21) - 10
Для диапазона от 50 до 100: random(51) + 50

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

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.

5. Заполните случайными числами в диапазоне от 1 до 5 два массива: А[1:20] и В[1:20]. Найдите и выведите на экран только те элементы этих массивов, значения которых совпадают. Например, если А[2] = В[2] = 4, то на экран надо вывести:
Номер: 2 значение: 4
Если таких совпадений нет, то выведите на экран сообщение об этом.

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.

6. Придумайте свои способы получения случайных чисел.

Существует множество способов получения случайных чисел. Один из наиболее распространенных - использование встроенных функций генерации случайных чисел, как мы сделали выше с random(X). Также можно использовать аппаратные генераторы случайных чисел, данные из внешних источников (например, датчики окружающей среды), а также алгоритмы генерации псевдослучайных чисел. Выбор метода зависит от конкретных потребностей и требований вашего приложения.