Составьте программу ввода с клавиатуры элементов массива a [1 ... 10] и вывода на экран элементов с чётными значениями и чётными индексами

Вводим переменную для массива одномерного и состоящего из десяти элементов:

var a : array [1 ... 10] of integer;

begin

Цикл проходит по элементам массива и заполняет их случайными числами:

for i : integer : = 1 to 10 do

a[i] : = random (20) - 10;

Цикл проходит по элементам массива снова и проверяет, четные ли номера и четные ли элементы массива под этими номерами. Если да, выводит сообщение об этом:

for i : integer : = 1 to 10 do

if (a[i] mod 2 = 0) and (i mod 2 = 0) then

writeln ('Под четным индексом ', i, ' находится четный элемент равный ', a[i]);

end.