Консультация № 115236
21.12.2007, 16:48
0.00 руб.
0 1 1
в массиве даны числа 0,1,2. Переставить их в порядке возрастания. разрешена только перестановка

Обсуждение

Неизвестный
22.12.2007, 14:28
общий
это ответ
Здравствуйте, Кузнецов Николай Михайлович!
Вот простейший вариант (по сути дела, реализуется метод пузырьковой сортировки). Можно и поумнее сделать

Приложение:
const N = 20;var ar: array[1..N] of Byte; i, k: Integer; temp: Byte;BEGIN for i:=1 to N do ar[i]:=Random(3); for i:=1 to N do Write(ar[i]:4); WriteLn; for i:=1 to N-1 do for k:=i+1 to N do if ar[k] < ar[i] then begin temp:=ar[k]; ar[k]:=ar[i]; ar[i]:=temp end; for i:=1 to N do Write(ar[i]:4); WriteLn;END.
Форма ответа