Написать программу на Паскале, которая сформирует массив из n нечётных чисел из промежутка [10,50] случайным образом. Вывести на экран элементы массива, которые при делении на 7 и…

Для решения задачи, давайте сначала разберем, что нам нужно сделать:

1. Сформировать массив из n нечётных чисел в диапазоне от 10 до 50.
2. Вывести на экран элементы массива, которые при делении на 7 и на 4 дают одинаковые остатки.

Вот пример программы на Паскале, которая выполняет эти шаги:

program OddNumbersArray;

uses crt;

var
  n, i, count: integer;
  arr: array of integer;

begin
  clrscr;
  writeln('Введите количество нечётных чисел, которое нужно сгенерировать:');
  readln(n);
  
  // Установка размера массива
  SetLength(arr, n);
  count := 0;

  // Генерация массив из n нечётных случайных чисел в диапазоне [10, 50]
  Randomize; // Инициализируем генератор случайных чисел
  while count < n do
  begin
    i := Random(41) + 10; // Случайное число от 10 до 50
    if i mod 2 <> 0 then // Проверим, что число нечётное
    begin
      arr[count] := i;
      count := count + 1;
    end;
  end;

  // Вывод элементов массива, которые при делении на 7 и на 4 дают одинаковые остатки
  writeln('Элементы массива, которые при делении на 7 и на 4 дают одинаковые остатки:');
  for i := 0 to n - 1 do
  begin
    if (arr[i] mod 7) = (arr[i] mod 4) then
      writeln(arr[i]);
  end;

  readln;
end.

Объяснение кода:

1. Использование модуля crt: Этот модуль позволяет нам использовать функции очистки экрана и другие полезные функции.

2. Переменные:

   • n — количество нечётных чисел, вводимое пользователем.
   • i — переменная для генерации случайного числа.
   • count — счетчик для заполнения массива.
   • arr — массив, который будет хранить нечётные числа.

3. Цикл генерации массива:

   • Мы используем функцию Random, чтобы получить случайное число от 10 до 50.
   • Проверяем, является ли число нечётным. Если да, то добавляем его в массив.

4. Вывод результата:

   • Мы проходим по массиву и выводим только те числа, для которых остатки при делении на 7 и на 4 равны.

Запустите эту программу, и она создаст массив нечётных чисел, а затем выведет те, которые соответствуют указанному условию. Удачи в ваших дальнейших учебных занятиях!