nhập vào mảng gồm n số nguyên. a) In ra màn hình các số chẵn có trong mảng. b)Tính tổng các số lẻ có trong mảng

Uses crt;
Var i,n,S:Integer;
a:array [1..100] of Integer ;
Begin
Readln(n);S:=0;
For i:=1 to n do
Read(a[i]);
For i:=1 to n do
If a[i] mod 2=0 then Write(a[i],' ') else S:=S+a[i];
Writeln;
Write(S);
End.

program ct;

uses crt;

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

      i,n,S:integer;

begin clrscr;

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

   for i:=1 to n do

     begin

        writeln('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

   writeln('Cac so chan la: );

     S:=0;

   for i:=1 to n do

     begin

        if i mod 2=0 then writeln(A[i]:3);

        if i mod 2<>0 then S:=S+i;

     end;

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

readln;

end.

Học tốt!