ENG  RUSTimus Online Judge
Online Judge
Задачи
Авторы
Соревнования
О системе
Часто задаваемые вопросы
Новости сайта
Форум
Ссылки
Архив задач
Отправить на проверку
Состояние проверки
Руководство
Регистрация
Исправить данные
Рейтинг авторов
Текущее соревнование
Расписание
Прошедшие соревнования
Правила
вернуться в форум

Обсуждение задачи 1100. Таблица результатов

My program is wrong and my friends laught at me :-((
Послано fstilus_chiki 4 сен 2015 20:08
Pls halp...

var
  i, n: integer;
  id:array of longint;
  ball: array of integer;

procedure qSort(var ar: array of integer; ra:array of longint);
  procedure sort(var ar: array of integer; low, high: integer; ra:array of longint);
  var
    i, j: integer;
    m, wsp: integer;
    b: longint;
  begin
    i := low; j := high; m := ar[(i + j) div 2];
    repeat
      while ar[i] < m do Inc(i);
      while ar[j] > m do Dec(j);
      if i <= j then begin
        wsp := ar[i]; ar[i] := ar[j]; ar[j] := wsp;
        b := ra[i]; ra[i] := ra[j]; ra[j] := b;
        Inc(i); Dec(j);
      end;
    until i > j;
    if low < j then sort(ar, low, j, ra);
    if i < high then sort(ar, i, high, ra);
  end;
begin
  sort(ar, 0, High(ar), ra);
end;

begin
  read(n);
  setlength(id,n);
  setlength(ball,n);
  for i := 0 to n-1 do
    read(id[i], ball[i]);
  qSort(ball, id);
  for i := n-1 downto 0 do
    writeln(id[i], ' ', ball[i]);
end.

What's wron? Halp pleese!
Re: My program is wrong and my friends laught at me :-((
Послано Egor 20 сен 2015 19:00
don't use that language
Re: My program is wrong and my friends laught at me :-((
Послано IlushaMax 13 мар 2016 13:20
Because that language hasn't got sort functons? Strange advice to the beginner
Re: My program is wrong and my friends laught at me :-((
Послано 🎧 Vadim Barinov \Frez_Fstilus/'` 8 сен 2017 22:31
He's about English