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.

uses crt;

var i, n, max : integer;

f1 : text;

begin

clrscr;

assign(f1, 'DULIEU.TXT'); reset(f1);

read(f1, max);

for i := 1 to 4 do begin

read(f1, n); if n > max then max := n;

end;

write('So lon nhat = ', max);

close(f1);

readln

end.

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.