#include<iostream>

#include<time.h>

#define MAX 100

using namespace std;

void NhapMang(int a[], int n)

{

      for(int i=0; i<n; i++)

      {

                  cout<<"Phan tu thu "<< i <<": ";

                  cin>>a[i];

      }

}

void XuatPTChan(int a[], int n)

{

              int PTChan;

              cout<<"Cac phan tu chan nho hon 20 la: \n";

              for(int i=0; i<n; i++)

                                if ((a[i] % 2 == 0) && (a[i] < 20))

                                {

                                      PTChan=a[i];

                                      cout<<a[i]<<"\t";

                                }

}

void main()

{

              int n, a[MAX];

              cout<<"So luong phan tu thuc su: "; cin>>n;

              NhapMang(a,n);

              XuatPTChan(a,n);

              cout<<endl;

}

Nếu bạn thấy hay thì vote cho mình nha :3

uses crt;

var i,n,s,tc:integer;

      a:array[1..20] of integer;

begin

clrscr;

s:=0;tc:=0;

write('n=');readln(n);

for i:=1 to n do

begin

write('phan tu a[',i,']=');readln(a[i]);

end;

for i:=1 to n do

begin

s:=s+a[i];

end;

for i:=1 to n do

begin

if a[i] mod 2 = 0 then

tc:=tc+a[i];

end;

writeln('tong la:',s);

writeln('tong chan la:',tc);

readln;

end;