LAB1

Program BInsert;
Uses Crt,Dos;
Var
a:Array[0..30000] of Integer;
i,j,x,n,L,R,m:Integer;
h1,h2,m1,m2,s1,s2,d1,d2:word;
c1,c2:Real;
Begin
ClrScr;
Writeln('Bbedite gliny macciva');
Readln(n);
Randomize;
For i:=1 to n Do
a[i]:=Random(n);
GetTime(h1,m1,s1,d1);
c1:=h1*3600*100+m1*60*100+s1+d1/100;
For i:=2 to n Do
Begin
x:=a[i];
L:=1;
R:=i-1;
While L<=R Do
Begin
m:=(L+R) Div 2;
If x<a[m] Then R:=m-1 Else L:=m+1
End;
For j:=i-1 Downto L Do
a[j+1]:=a[j];
a[L]:=x;
End;
GetTime(h2,m2,s2,d2);
c2:=h2*3600*100+m2*60*100+s2+d2/100;
c2:=c2-c1;
For i:=1 to n Do
Write (a[i],' ');
Writeln(c2:4:2,'cek');
Readln;
End.