2/ Cho n số nguyên dương a1, a2, . . .,an (1 < n ≤ 50), mỗi số không vượt quá 2 147 483 647. Từ
các số này người ta tạo ra một số nguyên mới bằng cách ghép tất cả các số đã cho, tức là viết liên
tiếp các số đã cho với nhau. Ví dụ, với n = 4 và các số 123, 124, 56, 90 ta có thể tạo ra các số mới
– 1231245690, 1241235690, 5612312490, 9012312456, 9056124123, v. v... Có thể dễ dàng thấy
rằng, với n = 4, ta có thể tạo ra 24 số mới. Trong trường hợp này, số lớn nhất có thể tạo ra là
9056124123.
Yêu cầu: Cho n và các số a1, a2, . . .,an . Hãy xác định số lớn nhất có thể tạo ra khi ghép các số
đã cho thành một số mới. viết chương trình pascal
var a:array[1..50] of longint;
n,i,j:byte;
tam:longint;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('a[',i,']=');readln(a[i]);
end;
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i]<a[j] then
begin
tam:=a[i];
a[i]:=a[j];
a[j]:=tam;
end;
write('so lon nhat co the tao ra:');
for i:=1 to n do write(a[i]);
readln;
end.
