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

Конечно! Давайте создадим программу на Паскале ABC, которая выполнит вашу задачу. Мы начнем с того, что сформируем массив из n нечётных чисел в диапазоне [10, 50], а затем выведем те элементы, которые при делении на 7 и на 4 имеют одинаковые остатки.

Вот пример кода для решения этой задачи:

program OddNumbersArray;

uses crt;

var
  n, i, num: integer;
  oddNumbers: array of integer;

begin
  clrscr; // Очистка экрана

  // Запрос количества нечётных чисел у пользователя
  write('Введите количество нечётных чисел (n): ');
  readln(n);

  // Установка размера массива
  SetLength(oddNumbers, n);
  
  // Генерация n случайных нечётных чисел в диапазоне [10, 50]
  Randomize; // Инициализация генератора случайных чисел
  for i := 0 to n - 1 do
  begin
    // Генерация случайного нечётного числа
    repeat
      num := Random(41) + 10; // Генерация чисел от 10 до 50
    until num mod 2 = 1; // Условие для нечётности
    oddNumbers[i] := num;
  end;

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

  readln; // Ожидание нажатия клавиши
end.

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

1. Инициализация программы: Мы начинаем с объявления переменных и массива.
2. Ввод количества чисел: Пользователь вводит, сколько нечётных чисел он хочет сгенерировать.
3. Генерация случайных нечётных чисел: Используется цикл repeat...until, чтобы убедиться, что мы генерируем только нечётные числа в диапазоне от 10 до 50.
4. Проверка и вывод: В следующем цикле мы проверяем, какие числа при делении на 7 и на 4 дают одинаковые остатки, и выводим их на экран.

Это решение обеспечит корректное выполнение задачи. Если у вас возникнут дополнительные вопросы или вам потребуется помощь с другими заданиями, не стесняйтесь спрашивать!