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

293

412

Посмотреть ответы 2

Ответы на вопрос:

mmmm0

Информатика

4,6(83 оценок)

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.