Найти минимальный элемент массива,отсортировать по возрастанию и поставить минимальный элемент на последнее место (конец массива)
VarA:array[1..1000] od longint;n,m,k,i,min,l:longint;Beginmin:=maxlongint;Readln(n);For i:=1 to n dobeginReadln(a[i]);If a[i]
Оцени ответ
