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

Сформировать квадратную матрицу порядка n по данному образчику (pascal)
1 2 3 ... n-2 n-1 n
2 1 2 ... n-2 n-2 n-1
3 2 1 ... n-4 n-4 n-2
... ... ... ... ... ... ...
n-1 n-2 n-3 ... 2 1 2
n n-1 n-2 ... 3 2 1

Задать свой вопрос
1 ответ

begin

 var m := 5;

 var n := 5;

 var a := new integer[m, n];

 for var i := 0 to m - 1 do

   for var j := 0 to n - 1 do

   begin

     if j gt; i then a[i, j] := j - i + 1;

     if i = j then a[i, j] := 1;

     if i gt; j then a[i, j] := i - j + 1;

   end;

 a.Println;

end.

Денис Гулютин
PascalABC.NET
Анжелика Рийсман
Тема двумерные массивы
Dmitrij
а у меня что?
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт