найти сумму элементов матрицы?нужен код паскаля

Question

Пусть дана вещественная квадратная матрица порядка n. В строках с отри¬цательным элементом на главной диагонали найдите: 
а) сумму элементов;

Apalon · Accepted Answer

Держи, написал на free pascal. 
 
program matr; 
var 
ar:array[0..64,0..64] of integer; 
n,i,j:byte; 
sum:integer; 
begin 
write('Введите n:'); readln(n); 
 
for i:=0 to n do begin 
for j:=0 to n do begin 
ar[i,j]:=random(20)-10; 
write(ar[i,j]:4); 
end; 
writeln; 
end; 
 
for i:=0 to n do 
 if (ar[i,i]<0) then begin sum:=0; for j:=0 to n do sum:=sum+ar[i,j]; writeln('Сумма элементов ',i+1,'-строки =',sum:4); end; 
 
readln; 
end.