Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
SINHHOANVI
//fpc 3.0.0 Program SINHHOANVI; Const fi= 'SINHHOANVI.INP'; fo= 'SINHHOANVI.OUT'; max= 20; Var x: array[1..max] of byte; n, i, k, a, b: byte; Procedure Swap(var X,Y: byte); var Temp: byte; Begin Temp:=X; X:=Y; Y:=Temp; End; BEGIN assign(input, fi); Reset(input); assign(output, fo); Rewrite(output); read(n); for i:=1 to n do X[i]:=i; Repeat for i:=1 to n do write(x[i],' '); writeln; i:=n-1; while (i>0) and (x[i]>x[i+1]) do Dec(i); if i>0 then begin k:=n; while x[k]<x[i] do Dec(k); swap(x[k],x[i]); a:= i+1; b:=n; while a<b do begin swap(x[a],x[b]); inc(a); dec(b); end; end; Until i=0; close(input); close(output); END.
run
|
edit
|
history
|
help
0
fff
Сортировка массиа прямым выбором
janja - naloga 1 - 11.7.2013
AR sredine
P170808E
practica 1 ejercicio 3
Membalik string
basketball_player_training
uuu
Количество пар кр и некр 11 улучшенный алгоритм