Есть у кого нибудь идеи?

Similar problem. i have WA at the test #14. I can not understand what I have missed

Who has a WA14 try to use this test:
4 4
1 5 1 5
right answer should be: 1

program mega;
var
   n, k, p, i, s:integer; a:array[1..100] of integer;

begin
 read(k, n);
 for i:=1 to n do
             read(a[i]);
 for i:=1 to n do
  if k<a[i] then
              begin
                p:=k-a[i];
                a[i+1]:=a[i+1]+1;
              end;
  writeln(a[n+1]);
end.

Помогите плиз в чем ошибка!

what do variable p?


Edited by author 21.02.2012 13:33

i have that respons, but actually i didn't pass((

Тоже ошибка в 14 тесте, для этих условий:
4 4
1 5 1 5
моя программа выдает правильный результат

Нашла ошибку
Попробуйте такой тест:
5 3
6 5 7

Edited by author 08.09.2015 19:19