Поменять местами минимальный и максимальный элементы массива. pascal abc.

Question

Информатика

Витяша

19 сентября, 14:51

Поменять местами минимальный и максимальный элементы массива. pascal abc.

+3

Ответы (1)

Знаете ответ на вопрос?

Петруша · Answer 1

Var c, k1, k2, i, min, max: integer; begin min:=m[0]; max:=m[0]; for i:=0 to N do begin / / тут вот N - размер массива, m - массив if (m[i]>max) then begin max:=m[i]; k1:=i end; if (m[i]