Дана матрица 9х9. В строках с отрицательными элементами на главной диагонали найти сумму, макс и мин

[DeVcheNka]

Люди, выручайте, плиззз!! Завтра надо сдать лабу, а у меня не получается с текстом программы подружиться. Вся надежда на вас))) Помогите первокурснице...

Дана матрица 9х9. В строках с отрицательными элементами на главной диагонали найти:
1)сумму всех элементов;
2)наибольший из элементов;
3)наименьший из элементов.

З.Ы. подпрограммы еще не учили((

сформировать массив я вот смогла:

Program lab;
uses crt;
const n=9; m=9;
var a : array[1..n,1..m]of real;
    i, j : integer;
       s: real;
Begin
  clrscr;
  for i:=1 to n do  begin
  writeln;
  for j:=1 to m do begin
  a[i,j]:=-30+random(50)+random;
  write(a[i,j]:7:1);
                            end;
                            end;

но вот дальше что делать не пойму...

[Stilet]

Ну сразу и пиши при вводе:

Program lab;
uses crt;
const n=9; m=9;
var a : array[1..n,1..m]of real;
    i, j : integer;
       s: real;
Begin
  clrscr;
  for i:=1 to n do  begin
  writeln;
  for j:=1 to m do begin
  a[i,j]:=-30+random(50)+random;
    if (i=j)and(a[i,j]<0) then begin {Если диагональ}
     Summa:=summa+a[i,j]; {НАйдем сумму}
     if a[i,j]>max then max:=a[i,j];{Максимум}
     if a[i,j]>min then min:=a[i,j]; {Минимум}
   end;

  write(a[i,j]:7:1);
                            end;
                            end;

Ну и далее выводи на экран эти переменки

[DeVcheNka]

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

[Stilet]

Ну тоже не сложно.
После ввода такими же циклами проходи и по условию
if (i=j)and(a[i,j]<0) then begin {Если диагональ}
еще одним циклом считай что нужно.

[DeVcheNka]

for i:=1 to n do
for j:=1 to m do begin
if (i=j) and (a[i,j]<0) then max:=-100;
for k:=1 to n do begin
if a[i,j]>max then max:=a[i,j];
end;
end;

но так почему-то мах только последней строчки получается((( что не так???!!! :'( :'( :'(

[puporev]

uses crt;
const n=9;
var a:array[1..n,1..n]of real;
    i,j:integer;
    s,min,max:real;
begin
clrscr;
randomize;
for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j]:=50*random-30;
        write(a[i,j]:7:1);
      end;
    writeln;
  end;
for i:=1 to n do  //идем по строкам
if a[i,i]<0 then //если элемент на главной диагонали отрицательный, то работаем
       begin
          s:=0;min:=a[i,1];max:=a[i,1]; //начальные значения суммы, мин и макс
          for j:=1 to n do  //идем по строке
             begin
               s:=s+a[i,j];
               if a[i,j]<min then min:=a[i,j];
               if a[i,j]>max then max:=a[i,j];
             end;
          writeln('В строке ',i,' s=',s:4:1,' min=',min:4:1,' max=',max:4:1);
       end;  //заканчиваем с этой строкой
readln
end.