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

Для решения вашей задачи на языке Паскаль, мы можем написать программу, которая сгенерирует массив случайных нечётных чисел в указанном диапазоне, а затем выведет элементы массива, которые при делении на 7 и на 4 дают одинаковые остатки.

Вот пример программы на Паскале:

program OddNumbersArray;

uses 
  Crt, SysUtils;

const
  MinValue = 10; 
  MaxValue = 50; 

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

begin
  ClrScr;
  
  // Вводим количество элементов массива
  Write('Введите количество нечётных чисел (n): ');
  ReadLn(n);
  
  // Устанавливаем размер массива
  SetLength(arr, n);
  
  // Формируем массив с нечётными числами
  Randomize; // Инициализация генератора случайных чисел
  count := 0;
  
  while count < n do
  begin
    i := Random(MaxValue - MinValue + 1) + MinValue; // Генерация случайного числа в диапазоне [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
    begin
      Write(arr[i], ' ');
    end;
  end;

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

Описание программы:

1. Программа запрашивает у пользователя количество нечётных чисел, которые нужно сгенерировать.
2. С помощью функции Random осуществляется генерация случайных чисел в диапазоне от 10 до 50.
3. Проверяется, является ли число нечётным, и, если да, оно добавляется в массив.
4. Затем программа проходит по массиву и выводит те элементы, которые при делении на 4 и на 7 имеют одинаковые остатки.

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