Question

Найти произведение элементов массива, имеющих нечетные индексы и выбрать из них минимальный

Answer 1

Program Mass;
var i, n, m: integer;
A:array [1..20] of integer;
begin
n:=1;
for i:=1 to 20 do
A[i]:=random(1000);
m:=A[1];
for i:=1 to 20 do
 if i mod 2 = 1 then
  begin
  n:=n*A[i];
  if m > A[i] then
   m:=A[i];
  end;
write(' произведение нечётных = ', n);
write('наименьшее из нечётных = ',m);
end.