program matrice_suma_numerepare;
{al doilea exercitiu }
type matrice = array[1..10, 1..10] of integer;
var a: matrice;
i,j,n,m,s:integer;
begin
{citire matrice}
write('Introduceti dimensiunea matrici: ');readln(n);
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('a[',i,',j,']=');readln(a[i,j]);
end;
s:=0;
{initializare suma}
for i:=1 to n do
for j:=1 to m do
begin
if(a[i,j]%2=0) then
s:=s+a[i,j]; {efectuarea sumei}
end;
writeln('Suma este: ',s);
readln;
end.
