Giúp mình vs ạ Cho tệp DuLieu.txt, mỗi dòng chứa một số nguyên. Viết chương trình tìm số lớn nhất trong các số và ghi vào tệp Ketqua.txt số lớn nhất t

0 bình luận về “Giúp mình vs ạ Cho tệp DuLieu.txt, mỗi dòng chứa một số nguyên. Viết chương trình tìm số lớn nhất trong các số và ghi vào tệp Ketqua.txt số lớn nhất t”

1. program File;
   uses crt;
   var    fi,fo:text;
              a: array[1..10000] of integer;
        i,n,max: integer;
   begin
         clrscr;
        
         assign(fi,‘Dulieu.txt’);
        
         reset(fi);
        
         while not eof(fi) do
        
                 begin
                
                     n:=n+1;
                    
                     readln(fi,a[n]);
                    
                 end;
                
         close(fi);
        
         max:=a[1];
        
         for i:=2 to n do
        
               If max < a[i] then max:=a[i];
              
         assign(fo,‘Ketqua.txt’);
        
         rewrite(fo);
        
         write(fo,max);
        
         close(fo);
      
   readln;
   end.

   Bình luận