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

Question

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

Comments

Turbo Pascal

---

Alviko пожалуйста попробуй сделать новую программу (прочти новые сообщения )

---

Попробуй вот это- http://znanija.com/task/6729685

Answer 1

Const
  nn = 20;

var
  i, j, n: integer;
  a: array[1..nn, 1..nn] of integer;

begin
  writeln('Задайте размер матрицы n');
  readln(n);
  if n > nn then
    writeln('Вы превысили допустимый размер матрицы 20')
  else begin
    writeln('Матрица-результат');
    for i := 1 to n do
    begin
      writeln;
      for j := 1 to n do begin
        if i < j then a[i, j] := 1
        else if i = j then a[i, j] := 2
        else a[i, j] := 3;
        write(a[i, j]:2)
      end;
    end;
    writeln
  end
end.

Тестовый пример:

Задайте размер матрицы n
10
Матрица-результат

 2 1 1 1 1 1 1 1 1 1
 3 2 1 1 1 1 1 1 1 1
 3 3 2 1 1 1 1 1 1 1
 3 3 3 2 1 1 1 1 1 1
 3 3 3 3 2 1 1 1 1 1
 3 3 3 3 3 2 1 1 1 1
 3 3 3 3 3 3 2 1 1 1
 3 3 3 3 3 3 3 2 1 1
 3 3 3 3 3 3 3 3 2 1
 3 3 3 3 3 3 3 3 3 2

Comments

Ох извините за моё замечание это я накосячил поэтому я хотел бы поставить 5*, а не 4, как я наделал.

---

Спасибо