Предмет: Информатика,
автор: vilonur
Пожалуйста, помогите решить данный массив в паскале
Приложения:
или так
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;
end
end.
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;
end
end.
Ответы
Автор ответа:
1
begin
var n := ReadInteger();
var a := MatrGen(n, n, (i, j)-> (1 - i + j) * Ord(j >= i));
a.Println;
end.
PascalABC.NET
Похожие вопросы
Предмет: Українська мова,
автор: kicsiesnagy1117
Предмет: Українська література,
автор: polinagajsuk57
Предмет: Английский язык,
автор: vbwti
Предмет: Математика,
автор: vikarusakova328
Предмет: Биология,
автор: Саша24082015
var n := ReadInteger();
var a := MatrGen(n, n, (i, j)-> (1 - i + j) * Ord(j >= i));
a.Println;
end.