Сформировать квадратную матрицу порядка n по заданному образцу

Perdovoz

Сформировать квадратную матрицу порядка n по заданному образцу:Очень надеюсь на вашу помощь. Буду бесконечно благодарен:-)
0   0   0   0   0   0   1
0   0   0   0   0   2   0
0   0   0   0   3   0   0
0   0   0   4   0   0   0
0   0  ...  0   0   0   0
0  n-1  0   0   0   0   0
n   0   0   0   0   0   0
2 ответа

Perdovoz

const
  nmax=20;
var
  n,i,j: integer;
  a: array[1..nmax,1..nmax] of integer;
begin
  write('Введите размер матрицы n: ');
  readln(n);
  writeln('Матрица:');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      if i+j=n+1 then a[i,j]:=i
        else a[i,j]:=0;
      write(a[i,j]:3);
    end;
    writeln;
  end;
  readln;
end.
Если вам и другие задачи нужны - набирайте их каждую в отдельной теме.


Perdovoz

Спасибо. Удали тему, плиз ))