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

Var
  i, c, p: integer;
  ar: array[1..8]of integer;
 begin
  c := 0;
  p := 1;
  for i := 1 to 8 do
  begin
    ar[i] := random(1, 10);
    write(ar[i], ' ');
    if(ar[i] mod 2 = 0) then c := c + 1
    else p := p * ar[i];
  end;
  writeln;
  writeln(p);
  writeln(c);
end.