Создать массив размерностью 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; //конец процедуры

Это информатика??? Найди в интернете калькулятор, там можно рассчитать такую штуку именно по информатике