viết chương trình nhập vào một mảng số nguyên a (a1,a2...an) gồm 12 phần tử a)in ra các phần tử lẻ trong mảng b) đếm và tính tổng các phần tử lẻ trong mảng

program tinhtong;

uses crt;

var a:array[1..12] of Integer;

    s: word;

    i, n, d: byte;

begin

  clrscr;

  s:=0; d:=0; n:=12;

  for i:=1 to n do 

    begin

        write('nhap a[',i,'] = ');

        readln(a[i]);

        if a[i] mod 2 <> 0 then 

            begin

                s:=s+a[i];

                d:=d+1;

            end;

    end;

  writeln('cac phan tu le trong mang: ');

  for i:=1 to n do if a[i] mod 2 <> 0 then

      write(a[i]:6);

  writeln('so phan tu le: ', d);

  writeln('tong cac so le: ', s);

  readln;

end.

program phuongt;

uses crt;

  var A: array[1..12] of integer;

        i, d, s: integer;

begin

            clrscr;

            s:=0; d:=0;

            for i:=1 to n do

            begin

                      write('A[', i, '] = '); readln(A[i]);

            end;

            write('a. ');

            for i:=1 to n do

            begin

                       if A[i] mod 2 = 1 do write(A[i]:3);

            end;

            for i:=1 to n do

            begin

                      if A[i] mod 2 = 1 do 

                      begin

                                 d:=d+1;

                                 s:=s+A[i];

                      end;

            end;

            write('b. so phan tu le = ', d, '; tong = ', s);

            readln

end.