Матрица.

[man-utd-]

Вот что делал, но все не так выходит

Дана матрица С(7,7). В строках с отрицательным элементом на главной диагонали найти сумму всех элементов. Если на главной диагонали отрицательных элементов нет, то выдать об этом сообщение

Program Primer_1;
uses crt;
type T=array[1..7,1..7]of real;
  var A:T; i,j:integer;
    s:real;
begin
clrscr;
 writeln('Vvedite elementy massiva');
  for i:=1 to 7 do
  for j:=1 to 7 do
  read (a[i,j]);
  s:=0;
for i:=1 to 7 do
if (a[i,i]<0) and (i=j) then
       begin
      s:=s+a[i,j];
end;
writeln('V stroke ',i,' s=',s:4:1);
readln;
end.

[Hacker19_90]

Вам здесь надо цикл подработать

for i:=1 to 7 do
if (a[i,i]<0) and (i=j) then
       begin
      s:=s+a[i,j];
end;

Примерно на такое

for i:=1 to 7 do
for j := 1 to 7 do
if (a[i,j]<0) and (i=j) then
       begin
      s:=s+a[i,j];
end;

[goto ∞]

Ну там же все ясно написано
" В строках с отрицательным элементом на главной диагонали найти сумму всех элементов."

sum := 0;
..
for i := 1 to 7 do
 if a[i,i] < 0 then
   begin
    for j := 1 to 7 do
      sum := sum + a[i,j];
      write(sum);
      sum := 0;
   end;
...

То есть, если в строке на главной диагонали элемент меньше 0 то находит сумму элементов в этой строке и выводит и т.д.