Question

VIết chương trình đọc một dãy 5 số nguyên từ tệp có tên BAITAP.txt in ra màn hình dãy số nguyên đó

Answer 1

uses crt;

const fi='baitap.txt'

var f1:text;

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

i:integer;

begin

clrscr;

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

for i:=1 to 5 do readln(f1,a[i]);

for i:=1 to 5 do write(a[i]:4);

close(f1);

readln;

end.