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

Обсуждение задачи 1005. Куча камней

Help, please. All the tests from comments give correct answers, why 7 WA?
Послано Artyom 12 ноя 2019 13:41
var i,k,n:longint;
a:array[1..20] of longint;
x:longint;
s:longint;
sum:longint;
begin
 s:=0;
 readln(n);

 for i:=1 to n do
  begin
   read(a[i]);
   inc(sum, a[i]);
  end;

 for i:=1 to n-1 do
  begin
   for k:=i+1 to n do
    begin
     if a[i]>a[k] then
      begin
       x:=a[i];
       a[i]:=a[k];
       a[k]:=x;
      end;
    end;
  end;

 for i:=n downto 1 do
  begin
   if s+a[i]<=sum div 2 then inc(s,a[i]);
  end;

 writeln(abs(sum-2*s));
readln();
end.
WA on the 7th test. Any ideas?

Edited by author 12.11.2019 13:42