Офигеть. Слетает и даже ошибок не выдаёт!

← →
Glex © (2006-01-27 16:50) [0]

procedure readdata; var i, j: byte; t: array of array of integer; begin Assign(input, "input.txt"); Reset(input); Readln(input, N); setlength(t,N); for i:=0 to N-1 do setlength(t[i],N); for i:=0 to N-1 do begin for j:=0 to i do begin read(input, t[i-1][j]); (* Здесь слетает на close(input) *) end; readln(input); end; close(input); (* Сюда слетает *) end;

Выполняется без ошибок но как-то странно. Просто слетает на конец процедуры и всё. Даже ошибок не выдаёт!
Почему это вдруг?

Файл input.txt:
3 1 2 3 5 7 6

← →
Gero © (2006-01-27 16:52) [1]

> for i:=0

> t[i-1]

Какой индекс будет в начале цикла?

← →
MBo © (2006-01-27 16:53) [2]

for i:=0 to N-1 do begin
for j:=0 to i do begin
read(input, t[i-1][j]);

что будет при i=0?

← →
Glex © (2006-01-27 16:55) [3]

Gero,

Блин, в который раз выручаешь) Спасибо большое)
У меня завтра областная олимпиада по информатике (я в 9-м классе учусь), а я на такой фигне стопорюсь.

> а я на такой фигне стопорюсь

Это лень!

>Это лень!

нет, это невнимательность

Офигеть. Слетает и даже ошибок не выдаёт! Найти похожие ветки