Массив. Вывести четные числа в порядке убывания индексов - Pascal

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

Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве четные числа в порядке убывания их индексов, а также их количество K. Дан целочисленный массив размера N. Вывести все содержащиеся в данном массиве нечетные числа в порядке возрастания их индексов, а также их количество K.

Решение задачи: «Массив. Вывести четные числа в порядке убывания индексов»

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

var  mas:array of integer;
n,i:integer;
begin
read(n);
setlength(mas,n);
for i:=0 to n-1 do
read(mas[i]);
writeln(mas);
i:=0;
while i<n do
begin
write(mas[i],' ');
i:=i+2;
end;
n:=n-n mod 2;
i:=n-1;
while i>0 do
begin
write(mas[i],' ');
i:=i-2;
end;
end.

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

Этот код на языке Pascal предназначен для чтения и вывода четных чисел из массива в порядке убывания индексов. Вот как он работает:

Создается переменная mas, которая представляет собой массив целых чисел.
Пользователю предлагается ввести количество элементов в массиве (переменная n).
С помощью функции setlength устанавливается длина массива mas равной n.
Затем происходит цикл for, который проходит по каждому элементу массива mas. В каждой итерации считывается число и сохраняется в соответствующую ячейку массива.
После завершения цикла выводится массив mas с помощью функции writeln.
Затем выполняется еще один цикл while, который начинается с индекса i=0 и продолжается до тех пор, пока i меньше или равно n. Внутри цикла выводится элемент массива с индексом i с пробелом перед ним.
После завершения внутреннего цикла значение переменной i обновляется, чтобы перейти к следующему элементу массива.
Цикл while повторяется, пока i больше или равно 0.
Наконец, значение переменной n уменьшается на остаток от деления на 2 (для обеспечения корректного перехода к следующему циклу).
Затем происходит переход к следующему циклу while, который начинается с индекса i=n-1 и продолжается до тех пор, пока i больше или равно 0.
Внутри цикла выводится элемент массива с индексом i с пробелом перед ним.
После завершения внутреннего цикла значение переменной i обновляется, чтобы перейти к следующему элементу массива.
Цикл while повторяется, пока i больше или равно 0.
Код завершается.