Lấy số liệu từ tệp cho trước (bài2.inp) .viết chương trình cho ra dãy số âm với giá trị tuyệt đối của Ai nhỏ hơn 100 và viết vào tệp (bài2.out) Dòng

0 bình luận về “Lấy số liệu từ tệp cho trước (bài2.inp) .viết chương trình cho ra dãy số âm với giá trị tuyệt đối của Ai nhỏ hơn 100 và viết vào tệp (bài2.out) Dòng”

1. uses crt;
   var d:text; i,n:longint; a:array[1..100000]of longint;
   begin
      clrscr;
      assign(d,’input.pas’);reset(d);
         readln(d,n);
         for i:=1 to n do read(d,a[i]);
      close(d);
      assign(d,’output.pas’);rewrite(d);
         for i:=1 to n do 
            if(a[i]<0)and(abs(a[i])<100) then write(d,a[i]);
      close(d);
   readln;
   end.

   Bình luận