числа

[eoln]

Poma][a, хороший алгоритм. Из минусов нашёл только такой вариант
4
0
0
0
0
вывод 0000
Ну и A B прибавлять необязательно. Ну и, возможно, проблема возникнет при сдаче программы - препод может сказать, что вводятся числа. Но зато можно использовать очень большие числа.

[Poma][a]

Подправил ( eoln спасибо!)
Кажется работает.

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
        WriteLn;
        ReadLn (n);

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

        for i := 1 to n-1 do
		for j := 1 to n-i do
			if a[j] < a[j+1] then
				Swap (a[j], a[j+1]);
        i := 1;
        while (a[i] = '0') and (i < n) do
                Inc (i);
        for i := i to n do
                Write (a[i])
end.

P.S. Решение - вспомнил тему - "Минимальное число" (влом искать ссыль) + Bubble Sort.
P.P.S. Уважаемый eoln, если Вы позволите, то я потом Вам плюсик поставлю (уж слишком люблю круглые числа )
P.P.P.S. Разобрался с буквами Еще раз спасибо eoln и Serge, а так же всем кто участвовал в "Минимальном числе".

[veniside]

Кажется работает

неа, не работает. сортировка должна быть умней. попробуйте ввести эти три числа, например: 90, 1, 9

ЗЫ. Не отчаивайтесь, код от Mad_Cat тоже провалил этот тест )

[Poma][a]

Так. Теперь ничего не понимаю....
Если в развилку добавить 'A' и 'B', то Ваш тест проходит, а тест

4
34
3
32
33
3433323

И наоборот....

[veniside]

Теперь ничего не понимаю

) это нормально. задачка с подвохом на самом деле.

вот вроде как рабочий код, но:

- он кривоват
- я не на 100% уверен, что не найдётся теста, который бы он не провалил

[Poma][a]

я не на 100% уверен, что не найдётся теста, который бы он не провалил

Кажется одно "не" лишнее

По разбираюсь в свободное время. (Вам +, ан нет, не позволяет параноидальная машина)