входной файл имеет вид
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 -