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

[KIRILOW]

1.Сформировать и вывести матрицу А(10,10),элементы которой заданы произвольно,кроме элементов,расположенных в заштрихованной области (рис.) и равных нулю.
2.Вывести элементы и номер столбца, содержащего наибольшее количество нулей.

[KIRILOW]

Вот что у меня получилось...

var row:integer;
var column:integer;
var my2Darray:array[1..10,1..10] of integer;
begin
randomize;
for row :=1 to 10 do
begin
for column:=1 to 10 do
begin
my2Darray[row][column]:=Random(11);
end;
end;
end;

Дальше не могу

[Serge_Bliznykov]

всё просто.

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

Тогда,

элементы, которые лежат ПОД главной диагональю,
имеют индексы row>column

элементы, которые лежат НАД побочной диагональю
имеют индексы column<(10-row+1)

ну, т.к. нам нужно, чтобы оба условия выполнялись одновременной (область - это пересечение элементов, лежащих под главной и над побочной диагоналями),
то условия должны выполняться оба.

выполните для иллюстрации такой код:

var row: integer;
var column: integer;
var
  my2Darray: array[1..10, 1..10] of integer;
begin
  randomize;
  for row := 1 to 10 do
    for column := 1 to 10 do
      if ((row>column) and
              (column < (10 - row + 1)) )
      then
        my2Darray[row][column] := 0
      else
        my2Darray[row][column] := 1; {это просто для наглядности, 
           в готовой программе поставите случ.числа через Random(11);}

  {выести матрицу на экран}
  WriteLn('Матрица:');
  for row := 1 to 10 do begin
    for column := 1 to 10 do
      Write(my2Darray[row][column]: 1, ' ');
    WriteLn;
  end;

  Readln;
end.