Паскаль.
program v1;
var
a:array [1..30,1..30] of integer;
n,m,i,j,sum:integer;
begin
writeln ('Введите размерность матрицы: '); readln(n,m);
writeln('Исходная матрица:');
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(100)-50;
write(a[i,j]:3);
end;
writeln
end;
sum:=0;
for i:=2 to n do
for j:=1 to i-1 do
inc(sum,a[i,j]);
writeln('Сумма = ',sum)
end.
