Найти сумму

[daniil123]

Дан массив натуральных чисел a1, a2,..., an и натуральные числа k и m. Найдите минимальное значение i такое, что a(i)+a(i+1)...+a(i+k)=m(т.е. сумма k+1 подряд идущих элементов массива равна m.
На вход программе сначала подаются значения n, k и m(o<=k<=1000000, n-количество элементов в массиве. В следующей строке входных данных расположены сами элементы массива - целые числа, по модулю не превосходящие 100.
Выведите минимальное искомое i. Если такого значения нет, то выведите 0.
Пример:
Вход:8 1 5
Выход:4 0 5 0 3 2 3 3

[Leshii]

Спрошу так, а что сделал ты сам?

[Zer0]

На вход программе сначала подаются значения n, k и m...
В следующей строке входных данных расположены сами элементы массива...
Выведите минимальное искомое i...

Вход:8 1 5
Выход:4 0 5 0 3 2 3 3

Вы точно ничего не перепутали?

[daniil123]

Препутал,
на входе:8 1 5
4 0 5 0 3 2 3 3
Выход:
2

[Serge_Bliznykov]

ну, с массивом всё вообще просто.
интересно эту задачу решить БЕЗ использования массива.

а решение, когда числа в массиве я примерно сейчас набросаю..
проверка и доводка до ума - на вашей совести..

ReadLn(n, k, m);
for i:=1 to n do
   Readln(A[i]);

for i:=1 to n-k do begin
   sum := 0;
   for j:=i to i+k do sum := sum + A[j];
   if sum = m then begin WriteLn(i); Break; end;
end;