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.

Program FNG;
Uses crt;
Var A: array[1..1000] of longint;
    n,i,sc,sl,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        sc:=0; sl:=0; s:=0;
        For i:=1 to n do
        Begin
                Write('A[',i,'] = ');
                Readln(A[i]);
                s:=s+A[i];
                If A[i] mod 2 = 0 then sc:=sc+A[i]
                Else sl:=sl+A[i];
        End;

        Writeln('Tong chan la: ',sc,' va tong le la: ',sl);
        Write('Tong day so: ',s);
        Readln
End.