Вариант 05 задание 2

Вычислить сумму элементов матрицы А(15,15) без учета элементов главной диагонали.

//Вот тут начало программы

program Proga2;
{$APPTYPE CONSOLE}
Const n=15;
Var H:Array [1..n,1..n] of integer;
sum,i,j:integer;
begin
randomize;
writeln ('Source Matrix...');
for i:=1 to n do {Создаём матрицу}
begin
for j:=1 to n do
begin
H[i,j]:=random(10);
Write (H[i,j],' ');
end;
WriteLn;
end;
Writeln;

{Считаем сумму элементов матрицы}

for i:=1 to n do
begin
for j:=1 to n do
begin
if i<>j then
sum:=sum+H[i,j];
end;
end;
{Выводим сумму на экран}
Writeln;
Write (sum);
Writeln;
Writeln;
writeln ('Press ENTER for EXIT');
readln;

end.

//Вот тут конец программы.