Help pls,
I have WA #20

can u give me a test? (all answers of my program on tests which i generated are right)

20 6
1 10 1 2 35 4 7 6 15 4 1 10 7 9 4 3 5 12 1 20

is the answer
120 56  ?

This is my program:

[code deleted]

  I got AC,but I want to know a better algorithm which
is shorter than my program.

  Thanks.

Edited by author 02.12.2008 16:34

Edited by author 02.12.2008 16:34

Edited by moderator 26.01.2020 20:06

Tell me please!
Is it greedy???

Could anyone give me some tricky tests?

Edited by author 03.11.2009 14:05

Edited by author 01.02.2012 14:29

WA11.... WTFail?!
My programm dont have bug on tests in this forum!


Edited by author 08.10.2009 20:45

Edited by author 08.10.2009 20:45

this test help me find my bug...
in:
4 5
3 1 7 9
out:
20 12

program verv;
var
   a : array [1 .. 20000] of Integer;
   d, d2, min, k, n, i, j : Longint;
begin
     k := 0;
     Readln (n, d);
     d2 := 0;

     for i := 1 to n do
     begin
          Read (a[i]);
          if ((d - a[i]) > 0) then
          begin
             min := d - a[i];
             for j := i + 1 to n do
                 Read (a[j]);
             Break;
          end;
     end;

     for i := 1 to n do
     begin
                if ((d + d2) - a[i]) > 0 then
                begin
                        if ((d + d2) - a[i]) < min then
                           min := (d + d2) - a[i];
                        d2 := d2 + (d - a[i]);
                        k := k + a[i];
                end
                else
                        k := k + d;
     end;
     Writeln (k, ' ', min);
end.
SHE DONT can AC !!!! Please help me

Edited by author 22.02.2009 18:27

What is this test?

if there was some unused yachts can we destroy them? ( to not pay golden )