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

//Pascal ABC.NET v3.0var ma:array of array of integer;i,j,s,m:integer;beginrandomize;readln(m);setlength(ma,m+1);for i:=1 to m dosetlength(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.