cho tệp songuyen txt có cấu trúc : dòng 1 ghi số nguyên duong n; dòng 2 ghi n số nguyên .viết pt tìm các số âm và ghi vào tệp soam.txt

0 bình luận về “cho tệp songuyen txt có cấu trúc : dòng 1 ghi số nguyên duong n; dòng 2 ghi n số nguyên .viết pt tìm các số âm và ghi vào tệp soam.txt”

1. uses crt;
   var a: array[1..500] of integer;
       i,n:byte;
       f,g:text;
   begin
   clrscr;
   write(‘Nhap N: ‘); readln(n);
   assign(f,’songuyen.txt’);
   reset(f);
   assign(g,’soam.txt’);
   rewrite(g);
   for i:=1 to n+1 do
    begin
     read(f,a[i]);
     if a[i]<0 then
       write(g,a[i],’ ‘);
    end;
   close(f);
   close(g);
   readln;
   end.

   Bình luận