составьте программу, которая заполняет массив b [1..8] случайными целыми числами в диапазоне от 1 до 10 и находит количество пар элементов с четными значениями.

 

помогитееееееее 

var  a: array[1..10] of integer; //Массив целочисленных элементов а  i, n: integer; //n - количество элементов, равных 1begin  n:= 0; //Обнуляем счетчик  write('Исходный массив: ');  for i:= 1 to 10 do {Заполняем массив случайными элементами от 1 до 10, распечатываем его и считаем количество элементов, равных 1}  begin  a[i]:= random(3);  write(a[i], ' ');  if a[i] = 1 then n:= n + 1;  end;  writeln;  writeln('Количество элементов, равных 1: ', n);end.