Пожалуйста, помогите решить данный массив в паскале

Пожалуйста, помогите решить данный массив в паскале

Задать свой вопрос
Лилия Бреликова
begin var n := ReadInteger(); var a := MatrGen(n, n, (i, j)-> (1 - i + j) * Ord(j >= i)); a.Println;end.
Виктор
или так
Виктор Глухушкин
begin var n := ReadInteger(); var a := new integer[n, n]; for var i := 0 to n - 1 do begin for var j := 0 to n - 1 do begin if i > j then a[i, j] := 0 else a[i, j] := 1 + j - i; Write(a[i, j]:4); end; writeln; endend.
1 ответ

begin

 var n := ReadInteger();

 var a := MatrGen(n, n, (i, j)-gt; (1 - i + j) * Ord(j gt;= i));

 a.Println;

end.

Костян Ариетов
PascalABC.NET
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт