Напишите программу, в которой сортировка выполняется методом камня- самый тяжелый элемент опускается в конец массива. в решение в паскаля

276

317

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

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

Каркушааа

Информатика

4,6(17 оценок)

Держи //fixed var a: array[1..10000] of integer; i,m,n,fl, tmp : integer; begin writeln('введите кол-во элементов в массиве'); readln(n); writeln('введите элеметы массива: '); for i: = 1 to n do read(a[i]); m: =n; repeat fl: = m; m: = 0; for i: =1 to fl-1 do if a[i+1] < a[i] then begin m: =i; tmp: =a[i]; a[i]: =a[i+1]; a[i+1]: =tmp; end; until m=0; for i: = 1 to n do write(a[i], ' '); end