Выведите на экран все четные элементы массива - Pascal ABC

Формулировка задачи:

11. Создайте одномерный массив, в который пользователь введет с клавиатуры значения элементов. Выведите на экран значения элементов массива. Выведите на экран все четные элементы массива.

Решение задачи: «Выведите на экран все четные элементы массива»

Листинг программы

...
for i:=1 to n do
 readln(a[i]);
for i:=1 to n do
  if a[i] mod 2=0 then 
    write(a[i],'  ');
...

Объяснение кода листинга программы

В данном коде происходит чтение элементов массива и вывод на экран только четных элементов. Код начинается с объявления переменной n, которая будет использоваться для контроля количества считываемых элементов массива. Затем следует цикл for, который проходит по каждому элементу массива от 1 до n. Внутри этого цикла считывается значение элемента массива с помощью функции readln(). Далее следует еще один цикл for, который также проходит по каждому элементу массива от 1 до n. Внутри этого цикла проверяется, является ли текущий элемент четным (оператор mod возвращает остаток от деления). Если остаток от деления равен нулю, то элемент выводится на экран с помощью функции write(). Таким образом, в результате выполнения данного кода на экран будут выведены только четные элементы массива.