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

[KIRILOW]

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

[Abstraction]

Можете создать и заполнить произвольно матрицу 10х10 целиком?

[KIRILOW]

Неа Не могу

[Abstraction]

Хорошо. Как создать матрицу (массив) 10х10, знаете?

[KIRILOW]

Да знаю

[Abstraction]

(Можно было бы и код привести)
Как организовать цикл от 1 до 10, знаете?

[KIRILOW]

нет к сожалению

[Abstraction]

Var Counter : Integer;
{Пройти 5 раз, меняя переменную Counter от 1 до 5}
For Counter := 1 to 5 do 
  Begin      
   {Сделать что-то}
  End;

Этот цикл прокручивается 5 раз. Цикл может быть вложенным:

Var row : Integer;
Var column : Integer
{Перебираем строки с первой по пятую}
For row := 1 to 5 do 
  Begin      
    {Перебираем элементы строки с первого по пятый}
    For column := 1 to 5 do
      Begin
        {Сделать что-то, для строки row и столбца column}
      End;
  End;

Следующий вопрос: как получить случайное значение, знаете?

[KIRILOW]

Тоже не знаю

[Abstraction]

Для этого есть функция Random:

var number : Integer

{number присваивается случайное целое число от 0 до 5 включительно}
number := Random(6);

Как присвоить значение элементу двумерного массива (матрицы), знаете?