Дана матрица А (4*5). Вычислить сумму квадратов всех ее отрицательных элементов. Кто сможет решите на паскале?

Const

m=4;

n=5;

var

a:array[1 ... m, 1 ... n] of integer;

i, j, s, e:integer;

begin

Randomize;

s:=0;

for i:=1 to m do

begin

for j:=1 to n do

begin

e:=Random (100) - 50;

a[i, j]:=e;

if e<0 then s:=s+sqr (e) ;

write (e:4)

end;

writeln

end;

writeln ('Сумма квадратов отрицательных элементов равна ', s)

end.

Тестовое решение:

43 - 12 - 47 27 34

-47 - 44 - 38 47 - 5

29 - 40 - 44 46 21

-17 32 0 10 - 43

Сумма квадратов отрицательных элементов равна 13641