Bị lỗi khi đọc dữ liệu từ tệp?

[jackie2810]

tệp input.txt:
12 29 19 17 37.....{có nhiều số nguyên}
đoạn trương trình:
assign(t1,'d:\input.txt');
reset(t1);
i:=1;
while not eof(t1) do
begin
read(t1,a[i]);
inc(i);
end;
for j:=1 to i-1 do
write(a[i]:3);{đưa ra các giá tri trong tệp input}

mình làm như vậy sai chỗ nào vậy?
mà sao các giá trị đều = 0 hết vậy?
làm thế nào gán giá trị trong tệp vào 1 biến mảng 1 chiều vậy?

[=========> Bổ sung bài viết <=========]

sao k ai giap dap giup minh het nhi???

[HGMinh95]

Khi in ra màn hình thì phải sửa thành write(a[j]) chứ bạn

[jackie2810]

Khi in ra màn hình thì phải sửa thành write(a[j]) chứ bạn

rồi mà sao nó k nhận giá trị từ tệp.
mà mình làm vậy có đúng k?

[HGMinh95]

Bạn làm như vậy đúng rồi mà

[jackie2810]

mình làm như vậy là giá trị của các mảng khi đưa ra màng hinh là =0 hết.
mà mình bỏ đi
while not eof(t1) do
begin
read(t1,a[i]);
inc(i);
end;
trong tệp có chỉ số n
mình dung
for i:=1 to n do
readln(t1,a[i]);
readln(t1);
thì khi đưa các giá trị mảng sẽ nhận giá trị của tệp.

[HGMinh95]

Cả 2 cách bạn đưa ra đều đúng. Bạn thử kiểm tra lại xem.

[jackie2810]

Cả 2 cách bạn đưa ra đều đúng. Bạn thử kiểm tra lại xem.

uhm.
thank bạn nhiu!