Viết chương trình nhập n số nguyên từ bàn phím. In ra màn hình các số âm chẵn và tổng các số lẻ trong mảng
_______________________________________________________________________________________
program songuyen;
uses crt;
var s,dem,i,n:integer;
      a:array[1..100] of integer;
begin
write('nhap n);readln(n);
for i:=1 to n do 
begin; wite('a[i]='); readln(a[i]);
dem:=0; s:=0;
for i:=1 to n do
begin;
if a[i] <0 and a[i] mod 2 = 0 then dem:=dem+1;
if a[i] mod 2 <> 0 then s:=s+a[i];
end;
writeln('co tat ca',dem,' so am chan trong day');
writeln('tong cac so le trong day la',s);
readln;
end.