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

Все числа в массиве будут целые. Создадим массив из 8 целых чисел от 1 до 10:
var a : array [1..8] of integer;
Еще мы сделаем переменную, в которую запишем количество нечетных частей. Оно тоже будет целым:
col-vo : integer;
for i:integer1 to 8 do
a[i] random(9) + 1;
Наибольшее число, которое может создать random одинаково 9. Прибавив к нему 1, мы будем получать 10 максимум.
Минимальное число, которое может сделать random равно 0. Прибавив к нему 1, мы получим минимальное число 1.
for i:integer1 to 8 do
if (a[i] mod 2 lt;gt; 0) then
begin
col-vo col-vo + 1;
write (a[i]:5);
end;
writeln(В массиве , col-vo, нечетных частей);