Синформатикой! заранее большое ! необходимое : написать программу,которая выводит суммы главной диагонали, верхней треугольной матрицы и нижней треугольной. язык )

// pascalabc.net 3.3, сборка 1627 от 27.01.2018 // внимание! если программа не работает, обновите версию! begin   var n: =readinteger('количество строк (столбцов) в матрице: ');   writeln('*** исходная матрица ***');   var a: =matrrandom(n,n,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var (su,sd,sl): =(0,0,0);   for var i: =0 to n-1 do       for var j: =0 to n-1 do           if i< j then su+=a[i,j]           else               if i=j then sd+=a[i,j]               else sl+=a[i,j];   writeln('суммы элементов: ');   writeln(' - верхней треугольной матрицы ',su);   writeln(' - главной диагонали ',sd);   writeln(' - нижней треугольной матрицы ',sl) end. пример количество строк (столбцов) в матрице: 4 *** исходная матрица ***   -73 -89    4  39   77 -32  23 -45   -29 -70 -88 -40   -83    9  21 -46 суммы элементов:   - верхней треугольной матрицы -108   - главной диагонали -239   - нижней треугольной матрицы -75 "школьный" вариант const   nn=20; { максимальный размер } var   a: array[1..nn,1..nn] of integer;   i,j,n: integer;   su,sd,sl: longint;   begin   write('количество строк (столбцов) в матрице: ');   readln(n);   randomize;   writeln('*** исходная матрица ***');   su: =0; sd: =0; sl: =0;   for i: =1 to n do begin       for j: =1 to n do begin           a[i,j]: =random(199)-99;           write(a[i,j]: 4);           if i< j then su+=a[i,j]           else               if i=j then sd+=a[i,j]               else sl+=a[i,j]           end;           writeln       end;   writeln('суммыа элементов: ');   writeln(' - верхней треугольной матрицы ',su);   writeln(' - главной диагонали ',sd);   writeln(' - нижней треугольной матрицы ',sl) end.

C++ #include < iostream> #include < cstdlib> #include < ctime> using namespace std; int main(){ srand(time(0)); int mas[5][5]; int sum=0,sum1=0,sum2=0; for(int i=0; i< 5; i++){ for(int j=0; j< 5; j++){ mas[i][j]=10+rand()%50; } } for(int i=0; i< 5; i++){ for(int j=0; j< 5; j++){ if(i==j)sum+=mas[i][j]; if(i> j)sum1+=mas[i][j]; if(i< j)sum2+=mas[i][j]; } } for(int i=0; i< 5; i++){ for(int j=0; j< 5; j++){ cout< < mas[i][j]< < " "; } cout< < endl; } cout< < endl; cout< < sum< < " "< < sum1< < " "< < sum2< < endl; return 0; }

Начало (овал)           i   (параллелограмм)           i           write('введите n = '); readln(n);                                             (прямоугольник)writeln('исходный массив x: ');             i           for i: =1 to n do  then s: =s+x[i]; end;             i if x[i]< 0       (ромб, от него две стрелки "да" и  "нет")       i да                                 i нет then s: =s+x[i];             end;                           (прямоугольник)