перечисляем строки в массив Опции

[doorway]

есть задачка, большая, но я забыл как перечислить нормально строки текстового файла в массив. и большая стала маленькой пока.
входной файл имеет вид
1
2
3
..
10
Все работает, но в выходном файле 0.

program var2;

var

mass:array[1..10] of integer;

inp, out:text;

i:integer;

begin

assign(inp,'inpu.inp');

assign(out,'outpu.out');

reset(inp);

for i:=1 to 10 do

begin

readln(inp,mass[i]);

end;

rewrite(out);

write(out,mass[2]);

close(out);

close(inp);

end.

Помогите ошибку найти.

Сообщение отредактировано: doorway - 15.09.2010 19:54

[Unconnected]

Это значит, что массив в цикле заполняется некорректно. Хмм, какой паскаль используешь? Попробуй в цикле заполнения массива заодно выводить числа на экран с помощью writeln.

Сообщение отредактировано: Unconnected - 15.09.2010 23:42

[doorway]

Это значит, что массив в цикле заполняется некорректно. Хмм, какой паскаль используешь? Попробуй в цикле заполнения массива заодно выводить числа на экран с помощью writeln.

1)турбо паскаль 7.1
2) первая единица, а потом нули

Сообщение отредактировано: doorway - 16.09.2010 0:07

[Rian]

1)турбо паскаль 7.1
2) первая единица, а потом нули

блин на трёх компах проверил.... работает...