uses crt;
var i,n,s,d: integer;
a: array[1..1000] of integer;
begin d:=0; clrscr;
write('Nhap so phan tu trong mang: '); readln(n);
for i:=1 to n do begin
  write('a[',i,']='); readln(a[i]); end;
for i:=1 to n do
  if not odd(a[i]) then begin
  s:=s+a[i]; inc(d); end;
writeln('Thong gia tri cac phan tu chan: ',s);
writeln('So cac phan tu chan: ',d);
readln;
end.

Mong câu tl hay nhất!

program sksk;

uses crt;

var a : array[1..100] of integer;

      i, n, t, dem : integer;

begin

clrscr;

write('nhap so luong phan tu trong mang :');readln(n);

t := 0;

dem := 0;

for i := 1 to n do

begin

write('nhap phan tu thu ', i ,' :');readln(a[i]);

if a[i] mod 2 = 0 then

begin

dem := dem + 1;

t := t + a[i];

end;

end;

write('cac phan tu chan la :');

for i := 1 to n do

if a[i] mod 2 = 0 then write(a[i]);

writeln;

writeln('tong phan tu chan la :', t);

writeln('so luong phan tu chan la :', dem);

readln

end.