Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.