Question

Заполнить массив К(1 То N) случайными числами из отрезка [A, B] и определить произведение нечетных элементов.

Answer 1

var
  a: array of integer;
  i, N, prod: integer;
  flag: boolean;
begin
  prod := 1; flag := False;
  write('Введите N -> ');
  readln(N);
  SetLength(a, N);
  for i:=0 to High(a) do begin
    A[i] := random(10)-5;
    write(A[i], ' ');
    if (abs(A[i] mod 2) = 1) then
      prod *= A[i];
      flag := True;
  end;
  writeln();
  if (flag) then
    writeln('Произведение нечетных элементов: ', prod, '.')
  else
    writeln('В массиве нет нечетных элементов.');
end.