Цель работы: изучение методов разработки алгоритмов обработки многомерных массивов данных и их запись в виде блок-схем. : найти сумму элементов квадратной матрицы а[m, m], расположенных выше главной диагонали. число m вводятся с клавиатуры, а элементы матрицы заполнить случайным образом целыми числами из диапазона [-30; 40].
var ma:array of array of integer;
i,j,s,m:integer;
begin
randomize;
readln(m);
setlength(ma,m+1);
for i:=1 to m do
setlength(ma[i],m+1);
writeln('Matrix:');
for i:=1 to m do
begin;
writeln;
for j:=1 to m do
begin;
ma[i,j]:=random(-30,40);
write(ma[i,j]:4);
end;
end;
for i:=1 to m do
for j:=i+1 to m do
s+=ma[i,j];
writeln;
writeln('Result:',s);
end.