Используя обменную сортировку, отсортировать массив по убыванию в динамическом массиве в паскале

106

403

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

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

1kukukukuku

Информатика

4,4(59 оценок)

//pascalabc.net 3.2 сборка 1318 var n,i,j,c: integer; ar: array of integer; begin readln(n); setlength(ar,n); for i: =0 to n-1 do readln(ar[i]); for i: =0 to n-2 do for j: =i+1 to n-1 do if ar[i]< ar[j] then begin c: =ar[i]; ar[i]: =ar[j]; ar[j]: =c; end; writeln; writeln('final array: '); for i: =0 to n-1 do write(ar[i]: 4); end. пример ввода: 5 2 4 6 1 2 пример вывода: final array: 6 4 2 2 1