Viết chương trình đọc dữ liệu từ tệp dữ liệu 11A.TXT xuất các số chẳn ra màn hình.

0 bình luận về “Viết chương trình đọc dữ liệu từ tệp dữ liệu 11A.TXT xuất các số chẳn ra màn hình.”

1. program sochan;

   uses crt;

   var f:text;

         A:array[1..1000] of integer;

         n,i:integer;

   begin

        clrscr;

        Assign(f,’Lop_11A.TXT’);  reset(f);

        readln(f,n);

        for i:=1 to n do

             begin

                  readln(f,A[i]);

                  if A[i] mod 2=0 then write(A[i],’ ‘);

             end;

        close(f);

        readln;

   end.

        

   Bình luận