uses crt;

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

n, i, tsc, tsl: integer

begin

clrscr;

write('So phan tu cua mang la: '); readln(n);

while n<1 do begin

write('So phan tu chi tu 2 tro len, ban da nhap sai, nhap lai: '); readln(n);

end;

for i:=1 to n do begin

write('So thu ',i,' la: '); readln(a[i]);

end;

tsc:=0;

tsl:=0;

for i:=1 to n do

if a[i] mod 2 =0 then tsc:=tsc+a[i]

else tsl:=tsl+a[i];

writeln('tong cac so chan la: ',tsc);

write('tong so cac so le la: ',tsl);

readln;

end.

uses crt;

var i,n,tong:integer;

      a: array[1..1000] of ineteger;

begin

clrscr;

writeln('Nhap do dai mang ( n>=1) : ');readln(n);

while n<1 then

   begin

   write('Nhap lai: ');

   readln(n)

   end;

writeln('Nhap ',n,' phan tu cua mang:');

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;

writeln('Tong cac phan tu chan trong mang vua nhap la: ',tong);

readln;

end.