Создать массив размерностью n×n элементов и заполнить его по следующему образцу, например для матрицы 5×5 1 1 1 1 1 0 0 1 0 0 1 1 1 1 1 0 0 1 0 0 1 1 1 1 1 2) с генератора случайных чисел procedure init (var z: dmas); //процедура init с описанием формальных параметров- переменных z: dmas var i,j: byte; //описание локальных переменных i,j: byte begin //начало процедуры for i: =1 to n do //цикл с параметром: для i от 1 до n делаем (формируем строку из n элементов) for j: =1 to m do //цикл с параметром: для j от 1 до m делаем (формируем столбец из m элементов) z[i,j]: =random (100); //присваиваем элементу с номером z[i,j] число из диапазона от 0 до 100 end; //конец процедуры