Question

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

Answer 1

Var a:array [1..10] of integer;
i,n:integer;
begin
n:=1;
randomize;
for i:=1 to 10 do
a[i]:=random(10);
for i:=1 to 10 do
write(a[i],' ');
writeln;
for i:=1 to 10 do
begin
if a[i] mod 2 <>0
then n:=n*a[i]
end;
write(n);
end.