CD

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

NT
5 tháng 5 2021 lúc 20:09

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.

Bình luận (0)

Các câu hỏi tương tự
H24
Xem chi tiết
LK
Xem chi tiết
HP
Xem chi tiết
TT
Xem chi tiết
NH
Xem chi tiết
H24
Xem chi tiết
MC
Xem chi tiết
NH
Xem chi tiết
TL
Xem chi tiết