Giúp mình với ạ. Cho tệp DuLieu.txt, mỗi dòng chứa một số nguyên. Viết chương trình lọc số nguyên dương trong tệp Dulieu.txt và chuyển sang tệp Ketq

0 bình luận về “Giúp mình với ạ. Cho tệp DuLieu.txt, mỗi dòng chứa một số nguyên. Viết chương trình lọc số nguyên dương trong tệp Dulieu.txt và chuyển sang tệp Ketq”

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);
              
         assign(fo,‘Ketqua.txt’);
        
         rewrite(fo);
        
         for i:=1 to n do
        
              If a[i] > 0 then write(fo,a[i]);
        
         close(fo);
      
   readln;
   end.

   Bình luận