Cho tệp SN.TXT chứa các số nguyên dương. Viết chương trình để :
– in ra màn hình các số nguyên trong tệp
– cho biết số nguyên lớn nhất trong các số đó
– ghi số lớn nhất đó vào tệp MAX.TXT
Cho tệp SN.TXT chứa các số nguyên dương. Viết chương trình để :
– in ra màn hình các số nguyên trong tệp
– cho biết số nguyên lớn nhất trong các số đó
– ghi số lớn nhất đó vào tệp MAX.TXT
uses crt;
var a:array[1..200] of integer;
i,n:byte;
max:integer;
f1,f2:text;
BEGIN
assign(f1,’SN.txt’);
{$I-} reset(f1); {$I+}
if ioresult<>0 then
begin
rewrite(f1);
reset(f1);
end;
n:=0;
while not eof(f1) do
begin
inc(n);
read(f1,a[n]);
end;
close(f1);
clrscr;
write(‘Cac so nguyen co trong tep:’);
for i:=1 to n do write(a[i],’ ‘);
writeln;
max:=a[1];
for i:=2 to n do
if a[i]>max then max:=a[i];
write(‘So nguyen lon nhat trong cac so do la:’,max);
assign(f2,’MAX.txt’);
rewrite(f2);
write(f2,max);
close(f2);
readln
END.
Chúc bạn học tốt!