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

Question

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

Answer 1

//Pascal
var
  b: array[1..8] of integer;
  i, z: integer;
begin
randomize;
for i := 1 to 8 do
begin
  b[i] := random(9)+1;
  write(b[i],' ');
  if b[i] mod 2 <> 0 then z := z + 1;
end;
writeln;
writeln('Количество нечетных = ', z);
readln;
end.