2 задачи. (TurboPascal)

[VladKB1]

1 Задача (условие):

Ввод из: Стандартный ввод Время выполнения на одном тесте: 1 с
Вывод в: Стандартный вывод Ограничение памяти программы на одном тесте: 1000 кб

Задан массив из n целых чисел. Необходимо вывести k максимальных элементов массива от большего к меньшему. Числа не превышают 10 в 4 степени по модулю, n < 50, 0 < k < (n+1).

Входные данные: В первой строке число элементов массива n и число k. Во второй строке n чисел, разделенных пробелом.

Выходные данные: k максимальных чисел, разделенных пробелом

Пример входных данных:
10 4
1 3 2 20 17 34 5 9 4 20

Пример выходных данных:
34 20 20 17

В задаче не проходит 3 тест. Вот решение:

var
 n,k,i,j,max,l: longint;
 a: array [1..10000] of longint;
 begin

 read(n,k);

  read(a[1]);
  max:=a[1];
  l:=1;

  for i:=2 to n do
  begin
   read(a[i]);
   if a[i] > max then l:=i;
   if a[i] > max then max:=a[i];
  end;
  write(max,' ');
  a[l]:=0;
  max:=a[1];
  l:=1; 

  for j:=2 to k do
  begin
   for i:=2 to n do
   begin
    if a[i] > max then l:=i;
    if a[i] > max then max:=a[i];
   end;
   write(max,' ');
   a[l]:=0;
   max:=a[1];
   l:=1;
  end;
 writeln;
end.

что не так?

2 Задача (условие):

Ввод из: Стандартный ввод Время выполнения на одном тесте: 0.5 с
Вывод в: Стандартный вывод Ограничение памяти программы на одном тесте: 1000 кб


Антон Деревенский записал ряд натуральных чисел в порядке возрастания:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 … и т.д.

Затем вычеркнул из него все числа, в которых имеется хотя бы две одинаковые цифры. Получил:
1 2 3 4 5 6 7 8 9 10 12 13 14 15 16 17 18 19 20 21 23 … и т.д.

Теперь Вам необходимо по заданному числу N найти N-ое по счету число в получившейся последовательности.

Входные данные: Положительное число N (N <= 10000).

Выходные данные: N-ое по счету число среди не содержащих одинаковых цифр.
Пример входных данных
100

Пример выходных данных
123

Сделал всё кроме вывода не знаю как вот код :

var
 n,i,j,s,x,l,des,u,x1,k: longint;
 a: array [1..10000] of longint;
begin
 read(n);

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

 for i:=1 to n do
 begin

 s:=i;
 u:=i;
 des:=0;
 x:=0;
 x1:=0;

 begin
 repeat
 s:=s div 10;
 inc(des);
 until s = 0;
 end;


 if des = 1 then
 begin
  des:=2;
 end;

 for j:=1 to des div 2 do
 begin
  inc(x,u mod 10);
  u:=u div 10;
 end;

 for j:=1 to des div 2 do
 begin
  inc(x1,u mod 10);
  u:=u div 10;
 end;
  if x = x1 then a[i]:=0;
end;
end.

Зарание спасибо!

[ZX Spectrum-128]

Очень интересные задания. Только:

У вас нет прав на совершение данного действия!

[VladKB1]

На сайте без регистрации не как

[ZX Spectrum-128]

А теперь подумайте, многие ли будут регистрироваться, чтобы увидеть текст вашей задачи?

[VladKB1]

может кто-нибудь зарегистрируется... А так впрочем вы правы.

[VladKB1]

Где ошибка в коде первой задаче?

[Аватар]

http://programmersforum.ru/showthread.php?t=261225
Думаешь больше клонов темы создал больше ответов будет? На кибере глянь, решение второй задачи есть, для 10000 вполне сойдёт

[VladKB1]

На кибере это где?

[Вадим Мошев]

http://yandex.ru/yandsearch?lr=54&te...BD%D0%BE%D0%B2
первый результат

[Аватар]

На кибере это где?

Ну детский сад. Забей в гугл вычеркнул из него все числа там и найдешь решение на кибере