Đáp án:

1,

program bai1;

Var

      N,S,i:integer; A:array[1..1000] of integer;

Begin

      write('Nhap so phan tu: '); readln(n);

      for i:=1 to n do readln(A[i]);

      S:=0; write('Cac so chan la: ');

      For i:=1 to n do if A[i] mod 2=0 then

      begin

              S:=S+A[i]; write(A[i],' ');

      End; writeln;

      write('Tong cac so chan la: ',S);

      Readln;

End.

2,

program bai2;

Var

      N,S,i:integer;

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

Begin

      write('Nhap so phan tu: '); readln(n);

      for i:=1 to n do readln(A[i]);

      S:=0; write('Cac so le la: ');

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

      begin

              S:=S+A[i]; write(A[i],' ');

      End; writeln;

      write('Tong cac so le la: ',S);

      Readln;

End.

Bài 1:

program so_chan;

uses crt;

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

      n,i,d,t:integer;

begin

      clrscr;

      write('Nhap n: ');  readln(n);

      d:=0;  t:=0;

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

                  if A[i] mod 2=0 then

                        begin

                              t:=t+A[i];

                              d:=d+1;

                        end;

            end;

      if d=0 then write('Khong co so chan nao')

      else for i:=1 to n do

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

      writeln;

      write('Tong cac so chan la: ',t);

      readln;

end.

Bài 2:

program so_le;

uses crt;

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

      n,i,d,t:integer;

begin

      clrscr;

      write('Nhap n: ');  readln(n);

      d:=0;  t:=0;

      for i:=1 to n do

            begin

                  write('Nhap so thu ',i,': ');  readln(A[i]);

                  if A[i] mod 2=1 then

                        begin

                              t:=t+A[i];

                              d:=d+1;

                        end;

            end;

      if d=0 then write('Khong co so le nao')

      else for i:=1 to n do

            if A[i] mod 2=1 then write(A[i],' ');

      writeln;

      write('Tong cac so le la: ',t);

      readln;

end.