2. Организуйте ввод пользователем двадцати целых чисел, найдите среди введенных значений те, которые являются четными положительными и выведите их на экран

Программа для поиска четных положительных чисел:

Program EvenPositiveNumbers;

Var
  num : Integer;
  i : Integer;

Begin
  WriteLn('Введите 20 целых чисел.');

  // Цикл для ввода 20 чисел
  For i := 1 to 20 do
  Begin
    Write('Введите число №', i, ': ');
    ReadLn(num);

    // Проверка, является ли число четным и положительным
    if (num > 0) and (num mod 2 = 0) then
    Begin
      WriteLn('Четное положительное число: ', num);
    End;
  End;

End.

Пояснение:

1. Программа запрашивает у пользователя ввод 20 целых чисел. Для этого используется цикл For от 1 до 20.

2. Внутри цикла каждое введенное число (num) проверяется с помощью условия if.

3. Условие (num > 0) and (num mod 2 = 0) проверяет сразу два критерия: num > 0 (число положительное) и num mod 2 = 0 (число делится на 2 без остатка, то есть четное).

4. Если оба условия выполняются, число выводится на экран как четное положительное.