Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в

[Хутор]

Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в заштрихованной части матрицы

нужно срочно. пожалуйста выручите

[andrewpalkin]

Сообщение от Хутор

Дана действительная квадратная матрица порядка n. Найти наибольшее из значений элементов, расположенных в заштрихованной части матрицы

нужно срочно. пожалуйста выручите

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

[GetMax]

Var
  Mas:Array[1..20,1..20] Of Real
  i,j:Byte;
  Max:Real;
  Sttr,Stolb:Byte;
Begin
   Randomize;
   Readln(Sttr,Stolb);
   For i:=1 to Sttr do
   Begin
     For j:=1 to Stolb do
     Begin
        Mas[i,j]:=Random(100);
        Write(Mas[i,j]:3)
    End;
    Writeln;
  End;
  Max:=Low(Real);
  For i:=1 to Sttr do
  Begin
    For j:=1 to Stolb do
    If (i + j < Sttr+1) And (Mas[i,j] > Max) then Max:=Mas[i,j]
  End;
  Writeln('Max = ',Max);
  Readln
End.