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

program zz1;

const v = 50; / / задаем количество элементов в массиве

var i, k, n, m:integer; / / задаем переменные целого типа

b:array [1 ... v] of integer;

begin

write (' введите заданное число n');

read (n);

write (' введите заданное число m');

read (m);

for i:=1 to v do / / получаем v чисел случайных в диапазоне от n до m и записываем их в массив

b[i]:=random (m+1-n) + n;

for i:=1 to v do / / выводим полученный массив на экран

write (b[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to v do

if (b[i] mod 2 = 0) and (i mod 2 = 0) then k:=k + 1;

writeln (' четных элементов на четных номерах = ', k); / / выводим ответ

end.