Создать массив размерностью n×n элементов и заполнить его по образцу, например для...

Question

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

Answer 1

//Pascal ABC.NET 3.1 сборка 1219

Const
 n=6;

Type
 ty=array[1..n,1..n] of integer;

procedure inic(var ar:ty);
 Var
  i,j,k:integer;
begin
  k:=0;
 for i:=1 to n do
  begin
   for j:=1 to n do
    ar[i,j]:=0;
  if not(odd(i)) then
   begin
    k:=k+2;
    ar[i,k]:=1;
   end;
  end;
end;

Comments

а почему в конце не точка, а двоеточие?

---

Потому что Вы попросили в формате процедуры.