Question

Viết chương trình đọc dữ liệu trong tệp bài tập TXT được đặt trong ổ d đưa kết qua ra ngoài màn hình

Answer 1

uses crt;

const fi='txt.inp';

var f1:text;

a:array[1..100]of integer;

dem,i:integer;

begin

clrscr;

assign(f1,fi); reset(f1);

dem:=0;

while not eof(f1) do

begin

inc(dem);

read(f1,a[dem]);

end;

for i:=1 to dem do

write(a[i]:4);

close(f1);

readln;

end.