Как создать массив размерностью n×n элементов и заполнить его по образцу, например, для матрицы 6×6, где элементы расположены следующим образом:

• 0 0 0 0 0 0
• 0 1 0 0 0 0
• 0 0 0 0 0 0
• 0 0 0 1 0 0
• 0 0 0 0 0 0
• 0 0 0 0 0 1

Как решить эту задачу с использованием PascalABC и оформить в виде процедуры?

Информатика 10 класс Работа с массивами и процедурами в PascalABC массив размерность n×n элементы матрица 6×6 заполнение PascalABC процедура информатика 10 класс программирование алгоритм двумерный массив создание массива решение задачи код примеры учебный материал Новый

Для создания и заполнения массива размерностью n×n в PascalABC можно использовать следующую процедуру:

procedure FillMatrix(n: integer);
var
  matrix: array of array of integer;
  i, j: integer;
begin
  SetLength(matrix, n, n); // создаем массив размером n×n

  // заполняем массив по образцу
  for i := 0 to n - 1 do
  begin
    for j := 0 to n - 1 do
    begin
      matrix[i][j] := 0; // заполняем нулями
    end;
  end;

  for i := 0 to n - 1 do
  begin
    if (i mod 2 = 1) then // ставим 1 в нужные позиции
      matrix[i][i div 2] := 1;
  end;

  // выводим массив на экран
  for i := 0 to n - 1 do
  begin
    for j := 0 to n - 1 do
    begin
      Write(matrix[i][j], ' ');
    end;
    Writeln;
  end;
end;

Вы можете вызвать эту процедуру, передав ей нужное значение n, например:

begin
  FillMatrix(6);
end.