Четные элементы - Pascal (85850)

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

Формат входных данных Сначала задано число N - количество элементов в массиве. Далее через пробел записаны N чисел - элементы массива. Формат выходных данных Необходимо вывести все четные элементы массива (то есть те элементы, которые являются четными числами).

Решение задачи: «Четные элементы»

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

program test;
var
n, i : integer;
arr : array[1..30] of integer;
begin
writeln('n = ');
readln(n);
for i :=1 to n do 
begin
writeln('Введите ', i, ' - е число');
readln(arr[i]);
end;
for i :=1 to n do
begin
if (arr[i] mod 2) = 0 then write(arr[i], ' ');
end;
readln;
end.

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

В этом коде на языке Pascal создаётся массив arr, в который с помощью цикла for и функции readln вводятся n целых чисел. Затем с помощью ещё одного цикла for проверяется, является ли каждый элемент массива чётным числом, и если да, то он выводится на экран с помощью функции write. В конце программы с помощью функции readln считывается символ, что позволяет программе завершиться.