program Lap_trinh;

uses crt;

const nmax= <số gì lớn nhất trong mảng thì bạn ghi> 

var A: array[1..nmax] of integer;

s,i,n: integer;

begin

  clrscr; randomize;

  for i:=1 to n do A[i] := random(301) - random(301);

  for i:=1 to n do write ( A[ i] :10);

writeln;

s: =0;

for i:=1 to n

    if (A[ i ] mod 2= 0) and (A [i] <0 ) then s:= s+ A[i];

writeln('tong can tinh la:  ',s);

readln

end.

program ct;

uses crt;

var A:array[1..30] of integer;

      i,n,S:integer;

begin clrscr;

   write('Nhap so phan tu: '); readln(n);

   for i:=1 to n do

     begin

        write('Nhap phan tu thu ',i,': '); readln(A[i]);

     end;

     S:=0;

   for i:=1 to n do

     if (A[i]<0) and (A[i] mod 2=0) then

        S:=S+A[i];

   write('Tong cac phan tu am va chia het cho 2 la: ',S);

readln;

end.

Học tốt!