chẳn:

Uses crt;
Var i,n,s:integer;
a:array[1..100] of integer;
Begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] mod 2=0 then s:=s+a[i];
end;
writeln('tong cac ptu chan trong mang la:',s);
readln;
end.

lẻ:

Uses crt;
Var i,n,s:integer;
a:array[1..100] of integer;
Begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
 if a[i] mod 2<>0 then s:=s+a[i];
end;
writeln('tong cac ptu le trong mang la:',s);
readln;
end.

(mong dc 5*+hay nhất)

(do đề nói là viết CT tính tổng các ptu chẳn hoặc lẻ nên  mình làm 2 bài 1 bài chẳn 1 bài lẻ)

Chẵn:

uses crt;

var A:array[1..100] of longint;

i,n,tong:longint;

begin

clrscr;

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

tong:=0;

for i:=1 to n do

begin

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

if A[i] mod 2=0 then tong:=tong+A[i];

end;

write('Trong so chan: ',tong);

readln

end.

Lẻ

uses crt;

var A:array[1..100] of longint;

i,n,s:longint;

begin

clrscr;

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

s:=0;

for i:=1 to n do

begin

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

if A[i] mod 2<>0 then s:=s+A[i];

end;

write('Tong so le: ',s);

readln

end.