Найти минимальный элемент массива,отсортировать по возрастанию и поставить минимальный элемент на последнее место (конец массива)

Найти минимальный элемент массива,отсортировать по возрастанию и поставить минимальный элемент на последнее место (конец массива)
Гость
Ответ(ы) на вопрос:
Гость
Var A:array[1..1000] od longint; n,m,k,i,min,l:longint; Begin min:=maxlongint; Readln(n); For i:=1 to n do begin Readln(a[i]); If a[i]
Не нашли ответ?
Ответить на вопрос
Похожие вопросы