дан одномерный массив, заполненный целыми случайными числами на промежутке от 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.