Составьте программу, которая...

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

 

Var a:array [1..10] of integer;
i,s:integer;
begin
s:=1;
for i:=1 to 10 do begin
A:=random(10)+1;
write(a,' ');end;
for i:=1 to 10 do
if a mod 2=1 then s:=s*a;
writeln;
writeln(s);
end.