Матрица с++

[incl_02]

Составить программу, которая образует матрицу (NxN) случайных действительных чисел, а также находит наибольшее и наименьшее значение заштрихованной части матрицы.
После чего выводит матрицу на экран и найденные значения (max и min).

Если не сложно, буду очень благодарен.

[Desc]

Так на картинке нет штриховки. Как так?

[incl_02]

Сообщение от Desc

Так на картинке нет штриховки. Как так?

под штриховкой на этом изображении имеется в виду то что темнее

[Desc]

Заштрихуйте то что темнее

[digitalis]

Интересно, откуда возьмутся координаты "заштрихованной части" ? Сканированием рисунка ?

[incl_02]

Ну вот, допустим матрица 5х5 надо найти максимальное и минимальное значения в заштрихованой части.

[digitalis]

Тогда, пожалуй, как-то так:

   amin = a[0][0] ;
   amax = a[0][0] ;
   m2 = M/2 ;
   for (i=0;i<M;i++)
     { if (i<=m2)k = M-1-i ; else k= i ;
       for (j=0;j<=k;j++)
         { if (a[i][j] < amin) amin = a[i][j] ;    
           if (a[i][j] > amax) amax = a[i][j] ;
         }
      }

[incl_02]

Сообщение от digitalis

Тогда, пожалуй, как-то так:

   amin = a[0][0] ;
   amax = a[0][0] ;
   m2 = M/2 ;
   for (i=0;i<M;i++)
     { if (i<=m2)k = M-1-i ; else k= i ;
       for (j=0;j<=k;j++)
         { if (a[i][j] < amin) amin = a[i][j] ;    
           if (a[i][j] > amax) amax = a[i][j] ;
         }
      }

нет, не работает.

[digitalis]

Не работать оно не может. Что - "не работает" ? Не компилится? Выдаёт не тот результат ?
Си у меня на компе нет, ни простого, ни плюснутого. На Делфи оно работает, как зверь.

const N = 5 ;
var
  Form1: TForm1;
  mas: array[0..4,0..4] of real ;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,j,m2,k: integer ; mx,mn: real; str: string ;
begin
  for i := 0 to N-1 do
    for j := 0 to N-1 do
       mas[i,j] := Random * 50 ;
  for i := 0 to N-1 do
    begin
       str := '' ;
       for j := 0 to N-1 do
          str := str + Format('%8.3f',[mas[i,j]]) ;
       Memo1.Lines.Add(str)
    end ;
  m2 := N div 2 ; mx := mas[0,0] ; mn := mx ;
  for i := 0 to N-1 do
    begin
      if i <= m2 then k := N-1-i else k := i ;
      for j := 0 to k do
        begin
//            Memo1.Lines.Add(Format('%4d %4d',[i,j])) ;
            if mas[i,j] < mn then mn := mas[i,j] ;
            if mas[i,j] > mx then mx := mas[i,j]
         end ;
     end ;
  Memo1.Lines.Add(Format('Min = %8.3f Max = %8.3f',[mn,mx])) ;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
  Memo1.Clear ; Randomize ;
end;

end.

38,627 30,690 36,564 19,626 45,350
48,329 8,891 21,999 11,241 49,617
33,059 24,190 42,571 26,259 6,779
48,237 4,449 15,881 16,177 2,200
11,825 3,975 29,859 22,363 49,856

Min = 3,975 Max = 49,856