Поменять местами минимальный и максимальный элементы - вопрос №4191534 от хорошист488 22.09.2020 20:15

Question

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

хорошист488 · Answer

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]...