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

Const

K=5;

type

massiv = array [1 ... K, 1 ... K] of integer;

var

mass: massiv;

summa, i, j:integer;

begin

randomize;

summa:=0;

for i:=1 to K do

for j:=1 to K do

mass[i, j]:=random (10) ;

for i:=1 to K do

begin

for j:=1 to K do

begin

write (mass[i, j], ' || ') ;

end;

writeln;

end;

for i:=1 to K do

for j:=1 to K do

if (i=j) then

summa:=summa+mass[i][j];

writeln;

writeln ('Сумма главной диагонали равна ', summa) ;

end.

Примечание: так как у меня отсутствует модуль CRT то вывести в графическую ДОС оболочку я вам программу не могу но если сильно хочется то в начале добавляете Uses CRT, а после первого Begin добавляете clrscr

Uses crt; {только при начилии соединения с модулем CRT запуск обычно по Shift+F9}

const

K=5; {зарезервировал постоянное число}

type

massiv = array [1 ... K, 1 ... K] of integer; {задал массив}

var

mass: massiv;

summa, i, j:integer;

begin

clrscr; {очистка экрана}

randomize;

summa:=0;

for i:=1 to K do {запустил цикл, одномерный массив}

for j:=1 to K do

mass[i, j]:=random (10) ; {числа не больше 10}

for i:=1 to K do

begin {запускаю цикл}

for j:=1 to K do

begin

write (mass[i, j], ' || ') ;

end;

writeln;

end;

for i:=1 to K do {вывел квадратичную матрицу, 2-мерный массив}

for j:=1 to K do

if (i=j) then {математика, работаю по главной диагонали}

summa:=summa+mass[i][j]; {суммирую}

writeln;

writeln ('Сумма главной диагонали равна ', summa) ; {вывожу}

end.