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

Все числа в массиве будут целые. Создадим массив из 8 целых чисел от 1 до 10:

var a : array [1 ... 8] of integer;

Еще мы создадим переменную, в которую запишем количество нечетных элементов. Оно тоже будет целым:

col-vo : integer;

for i:integer≔1 to 8 do

a[i] ≔ random (9) + 1;

Максимальное число, которое может создать random равно 9. Прибавив к нему 1, мы будем получать 10 максимум.

Минимальное число, которое может создать random равно 0. Прибавив к нему 1, мы получим минимальное число 1.

for i:integer≔1 to 8 do

if (a[i] mod 2 0) then

begin

col-vo ≔ col-vo + 1;

write (a[i]:5);

end;

writeln ('В массиве ', col-vo, ' нечетных элементов');