хитрость с последовательностью

[IT-school]

Задача такая:
В исходном файле даны два числа n и k, а также дана последовательность x1,x2,x3,x4...xn и даны k пар чисел a и b.
[spoiler]Пример:
4 3
1 3 8 5
1 3
4 4
2 3[/spoiler]
И надо вывести в output k чисел, которые будут для каждой пары a и b ответом следующего выражения: xa-x(a+1)+x(a+2)-x(a+3)+x(a+4)...+-xb.
(т.е. по очереди прибавлять-вычитать числа из последовательности начиная от a и кончая b).
И теперь вопрос: где может быть хитрость?
вот мой код:

var f,g:text;
    x:array[1..100000] of longint;
    a,n,w,s,k,i,j:longint;
    o:int64;
begin;
assign(f,'input.txt');
assign(g,'output.txt');
reset(f);
rewrite(g);
read(f,n);
readln(f,k);
for w:=1 to n do read(f,x[w]);
for w:=1 to k do begin;
                 read(f,i);
                 readln(f,j);
                 s:=1;
                 o:=0;
                 for a:=i to j do begin;
                        o:=o+x[a]*s;
                        s:=s*(-1);
                 end;
                 writeln(g,o);
end;
close(f);
close(g);
end.

И тестировщик говорит, что где-то возникают ошибки, если k>100, хотя что я пробовал вручную, все простые варианты работали. Где же может быть загвоздка?

[Poma][a]

read(f,i);
                 readln(f,j);
                 s:=1;
                 o:=0;
                 for a:=i to j do begin;

ужас..

f,g:text;

Чтоо? Бред..

[IT-school]

что? что не так? в чём конкретно заключается ужас? и почему бред?

[Stilet]

По-моему основная проблема тут именно в том что в строке могут быть несколько значений через пробел. Кажется не каждый read() сумеет прочесть такие данные.
Вот если бы файл был не текстовый тогда другое дело.

где-то возникают ошибки, если k>100

Где? Поставь отлов таких ошибок. IF, и всякие выводы текущего оператора и его операндов в LOG файл дабы понять на каком именно значении пндетц:

[IT-school]

Сообщение от Stilet

Где? Поставь отлов таких ошибок. IF, и всякие выводы текущего оператора и его операндов в LOG файл дабы понять на каком именно значении пндетц:

вот если бы я знал, где ошибки...
лог файла нет, у меня любительское программирование.

исходник можно и не текстовый, а .dat, например. есть различия?

[Stilet]

есть различия?

Ну если честно то да. Readln убирется везде, зато read() будет отрабатывать четко по каждому элементу.

[ViktorR]

Вот пример из Вашего кода:

for w:=1 to n do read(f,x[w]);

Это заполнение массива последовательностью чисел.
Правильнее так:

for w:=1 to n-1 do read(f,x[w]);
readln(f,x[n]);

Последнее число читаем через Readln().

Read() считывает конец строки, но неправильно его интерпретирует.
Readln() - настроен на его считывание.
Ну и далее по тексту программы ...


Как-то так, ...