uses crt;

var i,n,t,s,s1,d:longint;

      a:array[1..1000000] of longint;

begin

clrscr;

readln(n);

for i:=1 to n do

begin

write('a[',i,']=');

readln(a[i]);

end;

write('a, ');

for i:=1 to n do write(a[i],' ');

writeln;

s:=0;

for i:=1 to n do if a[i] mod 2<>0 then s:=s+a[i];

writeln('b, ',s);

d:=0;

for i:=1 to n do if a[i] mod 3=0 then d:=d+1;

writeln('c, ',d);

for i:=1 to n do t:=t+a[i];

writeln('d, ',t/n:0:2);

writeln('e, ');

for i:=1 to n do if a[i] mod 2=0 then

begin

write(a[i],' ');

s1:=s1+a[i];

end;

writeln;

write(s1);

readln

end.

uses crt;
var i,n,s,tb,d3:longint; a:array[1..1000000]of longint; 
begin
clrscr;
   write('Nhap do dai cua day: ');readln(n);
   for i:=1 to n do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if a[i] mod 2=1 then inc(s,a[i]);
         if a[i] mod 3=0 then inc(d3);
         inc(tb,a[i]);
      end;
   write('a) Cac so vua nhap: ');
   for i:=1 to n do write(a[i],' '); writeln;
   writeln('b) Tong cac phan tu le: ',s);
   writeln('c) Co ',d3,' phan tu chia het cho 3');
   writeln('d) Gia tri trung binh cua cac phan tu: ',tb/n:0:2);
   write('e) Cac so chan: '); 
   for i:=1 to n do 
      if a[i] mod 2=0 then write(a[i],' ');
   writeln;
   writeln('Tong cac so chan: ',tb-s);  
readln
end.