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

Program n_1;
var b:array[1..8] of integer;
i, n, p, f:integer;
begin
p:=1;
f:=1;
writeln(Введите кол-во элементов);
readln(n);
for i:=1 to n do
begin
b[i]:=random(10)+1;
write(b[i], );
If i mod 2=0 then p:=p*b[i];
If i mod 2<>0 then f:=f*b[i];
end;
writeln(p=,p);
writeln(f=,f);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.