Матрицы

[Valik93]

Задана вещественная квадратная матрица A = { a(ij) }, i, j = 1/n . Соста-вить программу вычисления суммы элементов матрицы A, располо-женных в строках с отрицательным элементом на главной диагонали.

[BDA]

Что вызывает затруднения?

Алгоритм:
Ввели матрицу
Идем по номерам строк
Проверяем на отрицательность элемент на главной диагонали
Если подходит, то проходим по этой строке и складываем

[Valik93]

uses crt;
var
a:array [1..25,1..25] of real;
sum:real;
i,j,n:integer;
BEGIN
write('Размерность-->'); readln(n);
for i:=1 to n do
 begin
     for j:=1 to n do
      begin
          a[i,j]:=random(19)-9;
          write(a[i,j]:6:1);
      end;
     writeln;
 end;
sum:=0;
for i:=1 to n do
   if a[i,i]<0 then
     for j:=1 to n do
          sum:=sum+a[i,j];
writeln('Sum=',sum);
END.

[Stilet]

uses crt;
var
a:array [1..25,1..26] of real;
sum:real;
i,j,n:integer;
BEGIN
write('Размерность-->'); readln(n);
for i:=1 to n do
 begin a[i,26]:=0;
     for j:=1 to n do
      begin
          a[i,j]:=random(19)-9; a[i,26]:=a[i,26]+a[i,j];
          write(a[i,j]:6:1);
      end;
     writeln;
 end;
sum:=0;
for i:=1 to n do
   if a[i,i]<0 then
 writeln('Sum=',a[i,26]);

readln;
END.

Годится?

[Valik93]

Весьма, спасибо.