Question

[Duyvvv]

cho tệp Dulieu.txt gồm nhiều dòng, mỗi dòng chứa 2 số nguyên. Viết chương trình đọc dữ liệu từ tệp Dulieu.txt rồi tìm GTNN của mỗi dòng, rồi hiển thị ra màn hình. 

Answer 1

[Nguyễn Lê Phước Thịnh]

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

inc(n);

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

end;

for i:=1 to n do 

begin

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

else writeln(b[i]);

end;

readln;

end.