Question

Сформировать квадратную матрицу порядка n по заданному образцу. N=10.
Паскаль.

Answer 1

Ответ:

program ideone;

var

i, j : integer;

m : array[0..9] of array[0..9] of integer;

begin

   for i := 0 to 9 do

   begin

   for j := 0 to 9 do

       begin

       if i = j then

           m[i][j] := (i + 1) * (i + 2)

       else

           m[i][j] := 0

       end

   end;

   for i := 0 to 9 do

       begin

       for j := 0 to 9 do

       begin

           write(m[i][j]);

           write(' ');

       end

       writeln();

   end

end.

Объяснение: