Помогите решить двумерный массив! Опции

[joker1989]

дана матрица NхM, найти максимальный элемент в двух треугольниках! треугольники там где единицы! Матрица обязательно квадратная!
(1)(0)(0)(0)(0)(0)(0)(1)
(1)(1)(0)(0)(0)(0)(1)(1)
(1)(1)(1)(0)(0)(1)(1)(1)
(1)(1)(1)(1)(1)(1)(1)(1)
(1)(1)(1)(1)(1)(1)(1)(1)
(1)(1)(1)(0)(0)(1)(1)(1)
(1)(1)(0)(0)(0)(0)(1)(1)
(1)(0)(0)(0)(0)(0)(0)(1)

[Tan]

Ну вот черновик, прога рисует 2 треугольника, заполяет их случайными числами и считает максимальный элемент среди 2х треугольников. Надеюсь я верно понял условие.

Program Array_Fill;
uses crt;
Const N=10;
Var MyArr:Array[1..N,1..N] of Integer;
    i,j,max:Integer;
    L,r:Integer;
Begin
Clrscr;
 randomize;
  For i:=1 to N do
    For j:=1 to N do
      MyArr[i,j]:=0;
  max:=(N-1) div 2;
  L:=1; r:=N;
  For i:=1 to N do Begin
      For j:=1 to L do MyArr[i,j] := random (20) - 10;
      For j:=R to N do MyArr[i,j] := random (20) - 10;
      If (i-1<max) then Begin
        Inc(L);
        Dec®;
      end else Begin
          If not(((N-2)mod 2=0)and(i=max+1)) then Begin
            Inc®;
            Dec(L);
          end;
      end;
  end;
  max := MyArr[1,1];
  For i:=1 to N do Begin
    For j:=1 to N do Begin
      If max <= MyArr[i,j] then max := MyArr[i,j];
      Write(MyArr[i,j]:4);
    end;
    Writeln;
  end;
  writeln; writeln ('Max ',max);
  readln;
end.

[joker1989]

Спасибо, только там не нули должны быть, а любые числа! А можно чтобы треугольники цветом выделились, а максимальный элемент другим цветом в треугольнике?

[Tan]

Конечно можно, а нули я для наглядности поставил, ты осилишь или сделать ? И я переменную max взял для двух целей, изначально она показывает рубеж заполнения, а потом как максимальный элемент, может довольно неудачно выбрал.

Сообщение отредактировано: Tan - 14.05.2007 19:55

[joker1989]

Если не трудно, то сделай пожалуйста!