Блог пользователя fsb4000

Автор fsb4000, 13 лет назад, По-русски
Отсылаю решение на проверку , получаю такой вердикт. Пересылаю решение, получаю "Полное решение".
859234
Код тот же самый..
859239
За вчерашний день наблюдал подобное на ~ 5 задачах. Это глюки системы? Или это проблема в моем коде?
  • Проголосовать: нравится
  • -2
  • Проголосовать: не нравится

»
13 лет назад, # |
  Проголосовать: нравится 0 Проголосовать: не нравится

У меня сейчас такое же. При этом зависает на первом тесте, хотя на запуске все работает. В чем может быть проблема?

»
13 лет назад, # |
  Проголосовать: нравится 0 Проголосовать: не нравится

Ссылка на посылку делается не так. Вы на статус прислали, где ее там искать. Зависло это обычно означает, что чтение идет не от туда откуда надо, и решение просто ждет ввода.

  • »
    »
    13 лет назад, # ^ |
      Проголосовать: нравится 0 Проголосовать: не нравится
    Var n,m,i,j,t:longint;
        a:array[0..123]of longint;
      begin
        read(n,m);
        for i:=1 to n do
          begin
            read(a[i]);
            a[i]:=(n-i+1)*a[i];
          end;
        for i:=1 to n do
          for j:=i+1 to n do
            if a[i]>a[j] then begin
                             t:=a[i];
                             a[i]:=a[j];
                             a[j]:=t;
                           end;
        for i:=1 to n+1 do
          if a[i]<=m then m:=m-a[i]
          else break;
        Writeln(i-1);
      end.
    
    

    Хмм... где здесь "не от туда откуда надо"?

    • »
      »
      »
      13 лет назад, # ^ |
        Проголосовать: нравится +3 Проголосовать: не нравится

      В вашем случае:

      ввод:input.txt

      вывод:output.txt