Здравствуйте, Семашкина Надежда Сергеевна.
Код программы в приложении. Блок-схему привести не могу по техническим причинам. Алгоритм очень простой, думаю составить ее не составит труда.

Приложение:
program Program1;
var Matr:array[1..10, 1..10] of integer;
sum:integer;
i, j:integer;
begin
{ Заполняем матрицу }
for i:=1 to 10 do
for j:=1 to 10 do
Matr[i, j]:=i*i; { Заполняем всю матрицу квадратами номера столбцов }
for i:=2 to 10 do
for j:=1 to i-1 do
Matr[i, j]:=j; { Заполняем элементы выше главной диагонали номерами строк }
{ Выводим на экран }
for j:=1 to 10 do
begin
for i:=1 to 10 do
Write(Matr[i, j]:4);
Writeln;
end;
{ Щитаем сумму четных элементов }
sum:=0;
for i:=1 to 10 do
for j:=1 to 10 do
if Matr[i, j] mod 2 = 0 then
sum:=sum+Matr[i, j];
{ Выводим полученный результат }
Writeln('Сумма четных элементов = ', sum);
readln;
end.