Question

Mọi người ơi giúp mình bài này với

Cho tệp songuyen.txt gồm 5 hàng 4 cột. Tìm số lớn nhất trong tệp songuyen.txt và ghi vào tệp gtln.txt

Answer 1

const fi='songuyen.txt';

fo='gtln.txt';

var f, g: text;

max, x: longint;

i, j: byte;

begin

assign(f, fi);

reset(f);

assign(g, fo);

rewrite(g);

max:=minlongint;

for i:=1 to 5 do

for j:=1 to 4 do

begin

read(f, x);

if x>max then max:=x;

if j=4 then readln(f);

end;

write(g, max);

close(f);

close(g);

end.