Дан одномерный массив целых чисел, сформированный случайным образом. Найти четные элементы, стоящие на четных местах. Вывести исходный и результирующий массивы паскаль

Для решения вашей задачи на языке Pascal, необходимо создать программу, которая будет заполнять одномерный массив целыми числами, затем будет отбирать четные элементы, которые находятся на четных индексах (то есть на 0, 2, 4 и так далее), и выводить как исходный, так и результирующий массивы. Вот пример кода:

program EvenElementsOnEvenPositions;

uses crt;

const
  MAX_SIZE = 100; // Максимальный размер массива

var
  arr: array[0..MAX_SIZE - 1] of integer;
  resultArr: array[0..MAX_SIZE - 1] of integer;
  n, resultSize, i: integer;

begin
  clrscr;

  // Ввод размера массива
  write('Введите количество элементов в массиве (макс ', MAX_SIZE, '): ');
  readln(n);

  // Заполнение массива случайными числами
  Randomize;
  writeln('Исходный массив:');
  for i := 0 to n - 1 do
  begin
    arr[i] := Random(100); // Генерируем случайное число от 0 до 99
    write(arr[i], ' ');
  end;
  writeln;

  // Поиск четных элементов на четных индексах
  resultSize := 0;
  for i := 0 to n - 1 do
  begin
    if (i mod 2 = 0) and (arr[i] mod 2 = 0) then
    begin
      resultArr[resultSize] := arr[i];
      Inc(resultSize);
    end;
  end;

  // Вывод результирующего массива
  writeln('Результирующий массив (четные элементы на четных позициях):');
  for i := 0 to resultSize - 1 do
  begin
    write(resultArr[i], ' ');
  end;
  writeln;

  readln; // Ожидание ввода перед завершением
end.

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

1. Программа запрашивает у пользователя количество элементов массива.
2. Выполняется заполнение массива случайными числами от 0 до 99.
3. Затем программа проходит по элементам массива и проверяет, являются ли индексы четными и элементы четными. Если обе проверки проходят, элемент добавляется в результирующий массив.
4. Наконец, программа выводит результирующий массив на экран.

Примечание:

• Убедитесь, что размер массива не превышает установленный лимит MAX_SIZE.
• Используйте Randomize для инициализации генератора случайных чисел.