viết chương trình đọc dữ liệu từ tệp songuyen.doc (lưu các số nguyên , các số cách nhau 1 dấu cách )đếm và đưa ra màn hình số các số lẻ trong tệp songuyen.doc

program bai_giai;
uses crt;
var a:array[1..1000]of longint;i,n,dem:longint;f:text;
begin
 clrscr;
  assign(f,'songuyen.doc');
  reset(f);
  readln(n);
  for i:=1 to n do read(a[i]);
  close(f);
  dem:=0;
  for i:=1 to n do if(a[i]mod 2=0)then inc(dem);
  write('co ',dem,' so le');
 readln
end.

uses crt;

var d, n : integer;

f1 : text;

begin

clrscr;

assign(f1, 'songuyen.doc'); reset(f1);

write('Cac so le : ');

while not eof(f1) do begin read(f1, n);

if n mod 2 <>0 then begin

write(n,'  '); d := d + 1; end; end;

writeln; write('Co ', d ,' so le');

close(f1);

readln

end.