в массиве размером 5 на 5 подсчитать сумму положитеных элементов стоящих на главной диагонали и ниже ее

constK=5;type massiv = array [1..K,1..K] of integer;varmass: massiv;summa,i,j:integer;beginrandomize;summa:=0;for i:=1 to K dofor j:=1 to K domass[i,j]:=random(10);for i:=1 to K dobeginfor j:=1 to K dobeginwrite (mass[i,j], ' || ');end;writeln;end;for i:=1 to K dofor j:=1 to K doif (i=j) thensumma:=summa+mass[i][j];writeln;writeln ('Сумма главной диагонали равна ', summa);end.Примечание: так как у меня отсутствует модуль CRT то вывести в графическую ДОС оболочку я вам программу не могу но если сильно хочется то в начале добавляете Uses CRT, а после первого Begin добавляете clrscrUses crt; {только при начилии соединения с модулем CRT запуск обычно по Shift+F9}constK=5; {зарезервировал постоянное число}type massiv = array [1..K,1..K] of integer; {задал массив}varmass: massiv;summa,i,j:integer;beginclrscr; {очистка экрана}randomize;summa:=0;for i:=1 to K do {запустил цикл, одномерный массив}for j:=1 to K domass[i,j]:=random(10); {числа не больше 10}for i:=1 to K dobegin {запускаю цикл}for j:=1 to K dobeginwrite (mass[i,j], ' || ');end;writeln;end;for i:=1 to K do {вывел квадратичную матрицу, 2-мерный массив}for j:=1 to K doif (i=j) then {математика, работаю по главной диагонали}summa:=summa+mass[i][j]; {суммирую}writeln;writeln ('Сумма главной диагонали равна ', summa); {вывожу}end.