Question

cho tẹp dulieu.txt gồm nhiều dòng, chứa 2 số nguyên. viết ct đọc dữ liệu từ tệp DULIEU.TXT tìm max mỗi dòng rồi đưa ra màn hình

Answer 1

uses crt;

const fi='dulieu.txt'

var f1:text;

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

i,n:integer;

begin

clrscr;

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

n:=0;

while not eof(f1) do 

 begin

n:=n+1;

readln(f1,a[n],b[n]);

end;

for i:=1 to n do

if a[i]<b[i] then writeln(b[i])

else writeln(a[i]);

readln;

end.