Viết chương trình đọc dữ liệu từ tệp dữ liệu 11A.TXT, có cấu trúc gồm các số nguyên mỗi số trên 1 hàng. Xuất ra màn hình các số lẻ.

0 bình luận về “Viết chương trình đọc dữ liệu từ tệp dữ liệu 11A.TXT, có cấu trúc gồm các số nguyên mỗi số trên 1 hàng. Xuất ra màn hình các số lẻ.”

1. program;

   uses crt;

   var f:text;

         A:array[1…1000] of interger;

         n,i:interger;

   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=1 then write(A[i],’ ‘);

      end;

       close(f);

      readln;

   end. 

   Bình luận

2. program sole;

   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=1 then write(A[i],’ ‘);

             end;

        close(f);

        readln;

   end.

   Bình luận