Цель работы: изучение методов разработки алгоритмов обработки многомерных массивов данных и их запись в виде блок-схем. : найти сумму элементов квадратной матрицы а[m, m], расположенных выше главной диагонали. число m вводятся с клавиатуры, а элементы матрицы заполнить случайным образом целыми числами из диапазона [-30; 40].

//pascal abc.net v3.0 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.