числа

[fearfrost]

в программу вводиться кол-во чисел, потом сами числа, надо из них составить максимально большое число
программу почти решил, но столкнулся с проблемой, что в максимальном числе приоретеней будет сначало ставить 3, потом 29...

[Stilet]

Кто-нибудь что-нибудь понял?

[fearfrost]

даётся массив, из N чисел, потом вводят эти числа, надо из этих чисел максимально большое число составить
пример
вводится:
4(n)
28
3
40
50
выводит:
5040328

[Poma][a]

procedure Swap (var a, b : string);

var
	t : string;

begin
	t := a;
	a := b;
	b := t;
end;

var
        n, j, i : Integer;
        a : array [1..10] of string;

begin
        ReadLn (n);

        for i := 1 to n do
                ReadLn (a[i]);

        for i := 1 to n-1 do
		for j := 1 to n-i do
			if a[j] + 'A' < a[j+1] + 'B' then
				Swap (a[j], a[j+1]);

        for i := 1 to n do
                Write (a[i])
end.

Не проверял

[fearfrost]

программа малька неправильна была составлена, но навела на одну мысль

[fearfrost]

в общем моя мысль провалилась, осталась таже ошибка "3 менее преоритетно чем 29, в плане сравнения"

[Mad_Cat]

const MaxN=10;
var A:array[1..MaxN] of integer;
buf1,buf2:string;
i,j,n,q:integer;
begin
readln(n);
for i:=1 to n do
readln(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
begin
str(a[i],buf1);str(a[j],buf2);
if buf1>buf2 then
begin
q:=a[i];
a[i]:=a[j];
a[j]:=q;
end;
end;
buf1:='';
for i:=1 to n do
begin
str(a[i],buf2);
buf1:=buf2+buf1;
end;
val(buf1,i,j);
writeln(i);
end.

4
28
3
40
50
5040328

[eoln]

Просто переведи числа в строки (процедура str) и сравнивай. Там и будет '3'>'28'

[Poma][a]

Мой алгоритм кажется проходит все тесты. Если я ошибаюсь, то будьте добры привидете контр. пример

[fearfrost]

Сообщение от Poma

[a]Мой алгоритм кажется проходит все тесты. Если я ошибаюсь, то будьте добры привидете контр. пример

4
34
3
32
33
3433323

за str благодорю