Евгений
найти сумму элементов матрицы? нужен код турбо паскаль
Пусть дана вещественная квадратная матрица порядка n. В строках с отри¬цательным элементом на главной диагонали найдите:
а) сумму элементов;
Пусть дана вещественная квадратная матрица порядка n. В строках с отри¬цательным элементом на главной диагонали найдите:
а) сумму элементов;
program one;
const n=10;
var i,j,sum: integer;
var matrica: array [1..n,1..n] of integer;
begin
for i:=1 to n
sum:=0;
if matrica[i,i] < 0 then begin for j:=1 to n sum:=sum+matrica[i,j]; writeln(sum); end;
end;
end.