Двумерные массивы

[Nata!!!@]

Дана действительная квадратная матрица порядка n. В строках с отрицательным элементом на главной диагонали найти наибольший из всех элементов.
Помогите дальше:
procedure TForm1.Button1Click(Sender: TObject);
var A: array of array of real;
i, j , m,n : integer;
max:real;
begin
randomize;
n:= Strtoint(Inputbox('Окно ввода', 'Введите порядок матрицы', '1'));
Setlength(A,n,n);
SG.ColCount:=n;
SG.RowCount:=n;

for i := low(A) to high(A) do
for j := low(A) to high(A) do
begin
A[i,j] := random*101-50;
SG.Cells[j,i]:= floattostrf(A[i,j],ffFixed,5,2);
end;

for i := low(A) to high(A) do
for j := low(A) to high(A) do
begin
if (j=i) and (A[i,j]<0) then

begin .........
Как из отообранных элементов найти наибольший???

[Stilet]

Тут надо сначала в первом цикле смотреть на a[i,i]
а во втором цикле уже искать максимум

[Nata!!!@]

Программа уже нашла эти элементы, осталось из них выбрать максимальный!

[puporev]

Вставь этот кусок кода:

for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     if (i=j) and (a[i,j]<0) then
       begin
         max:=a[i,1];
         for k:=2 to n do
           begin
             if a[i,k]>max then
               begin
                 max:=a[i,k];
               end;
           end;
         writeln('max v str',i,'=',max);//вместо этого напиши куда выводишь
       end;
   end;
end;

Вот это у тебя тоже вряд ли выйдет.

A[i,j] := random*101-50;

Напиши например A[i,j] := random(101)-50;

[_Dmitry]

max:=-50;
for i:=low(A) to high(A) do
  if A[i,i] < 0 then
    for j:=low(A) to high(A) do
      if A[i,j] > max then max:=A[i,j];

[Nata!!!@]

puporev ! Спасибо огромное! Только программа выбирает максимальный элемент из последней строки, в которой отрицательный элемент на главной диагонали. А надо чтобы он был максимальным из всех таких строк. ((

[puporev]

Ты что-то неправильно написала при выводе, у меня это в Паскале работает нормально, выдает max по всем строчкам, где a[i,i]<0.
Покажи свой код.

[Nata!!!@]

procedure TForm1.Button1Click(Sender: TObject);
var A: array of array of real;
k,i,j,m,n : integer;
max:real;
begin
randomize;
n:= Strtoint(Inputbox('Окно ввода', 'Введите порядок матрицы', '1'));
Setlength(A,n,n);
SG.ColCount:=n;
SG.RowCount:=n;

for i := low(A) to high(A) do
for j := low(A) to high(A) do
begin
A[i,j] := random*101-50;
SG.Cells[j,i]:= floattostrf(A[i,j],ffFixed,8,2);
end;

for i := low(A) to high(A) do
for j := low(A) to high(A) do
begin
if (j=i) and (A[i,j]<0) then
begin
max:=A[i,0];
for k:=1 to n do
begin
if A[i,k]>max then
begin
max:=a[i,k];
end;
end;
label1.Caption:=floattostr(max);

end;
end;
finalize(A);
end;

[Sibedir]

Случаем ни здесь ошибка:

for k:=1 to n do

Массив с 0 нумеруется

ЗЫ: Заключайте, пожалуйста, код в теги [СODE][/СODE] или используйте кнопочку #.

[Sibedir]

Зачем

max:=A[i,0];

ведь нужен максимум во всей матрице

  max := -50;
  for i := low(A) to high(A) do
    for j := low(A) to high(A) do begin
      if (j=i) and (A[i,j]<0) then begin
        for k:=0 to n-1 do begin
          if A[i,k]>max then begin
            max:=a[i,k];
          end;
        end;
        label1.Caption:=floattostr(max);
      end;
    end;

Но лучше все-таки так:

  max := -100;
  for i:=low(A) to high(A) do
    if A[i,i] < 0 then
      for j:=low(A) to high(A) do
        if A[i,j] > max then max:=A[i,j];

  if max = -100 then label1.Caption := 'На главной диагонале нет отрицательных элементов'
  else label1.Caption := floattostr(max);

Судите сами.