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.