program SumArray;

const
N = 10;

type
TArray = array$$\mathrm{1..}N,\mathrm{1..}N$$ of integer;

var
A: TArray;
i, j, sumPositive, sumNegative: integer;

begin
// Заполняем массив случайными числами от -10 до 10
Randomize;
for i := 1 to N do
for j := 1 to N do
A$$i,j$$ := Random$21$ - 10;

sumPositive := 0;
sumNegative := 0;

// Вычисляем сумму положительных и отрицательных элементов
for i := 1 to N do
for j := 1 to N do
begin
if A$$i,j$$ > 0 then
sumPositive := sumPositive + A$$i,j$$ else if A$$i,j$$ < 0 then
sumNegative := sumNegative + A$$i,j$$;
end;

// Выводим результаты
writeln${}^{\prime }Суммаположительныхэлементов{:}^{\prime },sumPositive$;
writeln${}^{\prime }Суммаотрицательныхэлементов{:}^{\prime },sumNegative$;

end.