Cho tệp ‘DULIEU.TXT’ chứa 5 số nguyên nằm trên 1 dòng, mỗi số cách nhau 1 khoảng trắng. Viết chương trình đọc dữ liệu từ tệp và hiển thị số lớn nhất ra màn hình.
program bai_giai; uses crt; var f:text; A:array[1..5] of longint; i,max:longint; begin clrscr; Assign(f,'DULIEU.TXT'); reset(f); for i:=1 to 5 do read(f,A[i]); max:=A[1]; for i:=2 to 5 do if A[i]>max then max:=A[i]; write(max); close(f); readln; end.