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

Question

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

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

Answer 1

var
  a: array[1..10] of integer; //Массив целочисленных элементов а
  i, n: integer; //n - количество элементов, равных 1
begin
  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.