Ввести массив A(N). Найти максимальный элемент массива, произведение нечетных элементов...

Question

Ввести массив A(N). Найти максимальный элемент массива, произведение нечетных элементов массива. Заменить максимум на произведение. Вывести полученный массив и произведение.

Answer 1

Var
  a:array of integer;
  i,b,c,max:integer;

BEGIN
  write('Введите размер массива - ');
  readln(c);
  setlength(a,c);
  writeln('Введите элементы массива - ');
  max:=0;
  b:=1;
  for i:=0 to c-1 do begin
    read(a[i]);
    if a[i] > a[max] then max:=i;
    if a[i] mod 2 <> 0 then b:=b*a[i];
   
  end;
  a[max]:=b;
  for i:=0 to c-1 do write(a[i]:3);
END.