Обработка и описание массивов

[KIRILOW]

Теперь программа готова?

[Serge_Bliznykov]

Экий Вы быстрый! Нет, конечно!

Готова программа, которая заполняет матрицу размером 10х10 нулевыми значениями. Ничего больше данный код не делает.
Если Вы считаете, что больше в вашей задаче делать ничего не надо, то тогда - готова...

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

[KIRILOW]

Да................

[KIRILOW]

И что дальше?

[Abstraction]

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

[KIRILOW]

Var row : Integer;
  Var column : Integer;
    var number : Integer;
  Var my2DArray : Array[1..10][1..10] of Integer;
begin
  for row := 1 to 10 do
  Begin
      for column := 1 to 10 do
      Begin
       number := Random(11);
      Begin
          my2DArray[row][column] := 0;
        end;
      end;
  end;
end.

[Abstraction]

Нет. Объясните, почему Вы считаете, что такая модификация приведёт к присваиванию элементам массива случайных значений.

[KIRILOW]

А как еще?

[Abstraction]

А как еще?

Вы модифицировали код, добавив в него две строки определённым образом. Я прошу прояснить ход Ваших мыслей. Потому что без объяснений, первое впечатление - что Вы совершаете некоторые случайные действия, уже на момент совершения не имея понятия, зачем Вы это делаете; гадаете.
Попробуем так: к Вашему коду выше, пожалуйста, напишите комментарий к каждой строке (напоминаю: в Pascal коментарии пишутся в фигурных скобках, {}): какой смысл, по-Вашему, эта строка несёт.

[Serge_Bliznykov]

ладно.. ещё чуток подскажу...

заполнить элемент случайными значениями - нужно заменить ту строчку, где мы присваиваем ноль на случайное значение:

  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); {присвоили случайное значение от 0 до 10}
      end;
  end;
end.

теперь дальше...
вот такое условие должно соблюдаться, чтобы проверить, попали мы в заштрихованную область или нет:

if (row>column)     { <----- это все элементы ПОД ГЛАВНОЙ диагональю матрицы}
    and                 {  логическое "И" - значит должны выполнится ОБА условия... }
    (row < (11-column) )  { <----- это все элементы НАД ПОБОЧНОЙ диагональю матрицы} then
      ... попали в заштрихованную область матрицы
  else
      ... попали в не заштрихованную область матрицы