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ẻ.

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. 

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.