3
3
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
114
55
Dùng thuật toán sắp xếp nhanh ( quick sort)
Thuật toán này dùng đệ quy
Hãy giúp mọi người biết câu trả lời này thế nào?
24
9
Program bt;
Uses crt;
Var max,i,j: longint;
a: array [1..1000] of longint;
Begin
Clrscr;
Write('Nhap n : ');readln(n);
For i:= 1 to n do
Begin
Write('Nhap a[',i,'] : '); read(a[i]);
Clrscr;
max:=a[1];
For i:= 1 to n - 1 do
For j:= i+1 to n do
If a[i] > a[j] then
Begin
a[i]:=a[i] +a[j];
a[j]:=a[i] -a[j];
a[i]:=a[i] -a[j];
End;
For i:=1 to n do
If a[i] > max then max:= a[i];
Writeln('So lon nhat la ,max);
For i:= 1 to n do write(a[i],' ');
Readln;
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin