program bai1;

use crt;

var n,i:integer;

      a:array[1..500] of integer;

begin

    clrscr;

  repeat 

     write ('Nhap n'); readln(n)

 until (0<n) and (n<1000);

for i:=1 ton do

   begin

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

         readln(a[i]);

 end;

for i:=1 to n do

if (a[i] mod 2=0) then s1=s1+a[i] 

else s2=s2+a[i] ;

writeln('tong so chan',s1);

write(' tong so le',s2);

readln

end.

#include <bits/stdc++.h>

using namespace std;

int main()
{
    int n, s=0,p=0;
    cout<<"nhap n ";
    cin>>n;
    int a[1001];
    for(int i=1;i<=n;i++)
        cin>>a[i];
        //-----------------------------------------
        for(int i=1;i<=n;i++)
            if(a[i]%2==0&&a[i]>0)
            s=s+a[i];
            cout<<"tong cac so chan duong la"<<s;
        //------------------------------------------
        for(int i=1;i<=n;i++)
            if(a[i]%2!=0&&a[i]<0)
            p+=a[i];
            cout<<"tong cac so le am la: "<<p;
    return 0;
}