Bài làm
uses crt;
var n,i,tong,chan,le:longint;
a:array[1..100] of longint;
begin
clrscr;
repeat
writeln('nhap n');readln(n);
until n<=100;
tong:=0;chan:=0;le:=0;
for i:=1 to n do
begin
repeat
writeln('nhap a[',i,']');readln(a[i]);
until (abs(a[i])<1000);
tong:=tong+a[i];
if a[i] mod 2 = 0 then chan:=chan+a[i];
if a[i] mod 2 <> 0 then le:=le+a[i];
end;
writeln(chan,' ',le);
writeln(tong);
readln;
end.
