Сформулируйте массив по образцу 0 0 0 0 0 0 7 0 0 0 0 0 6 0 0 0 0 0 5 0 0 0 0 0 4 0 0 0 0 0 3 0 0 0 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0
Сформулируйте массив по образцу
0 0 0 0 0 0 7
0 0 0 0 0 6 0
0 0 0 0 5 0 0
0 0 0 4 0 0 0
0 0 3 0 0 0 0
0 2 0 0 0 0 0
1 0 0 0 0 0 0
Гость
Ответ(ы) на вопрос:
ГостьVar A:array[1..7,1..7] of byte;
Begin
For var i:= 1 to 7 do
Begin
For var j:= 1 to 7 do
Begin
if (8-i = j) then A[i,j]:= j
else A[i,j]:=0;
Write(A[i,j])
End;
Writeln
End;
End.
Гость// PascalABC.NET 3.2, сборка 1387 от 20.02.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
var a:=MatrGen(n,n,(i,j)->j=n-1-i?n-i:0);
a.Println(2)
end.
Примеры
n= 7
0 0 0 0 0 0 7
0 0 0 0 0 6 0
0 0 0 0 5 0 0
0 0 0 4 0 0 0
0 0 3 0 0 0 0
0 2 0 0 0 0 0
1 0 0 0 0 0 0
n= 12
0 0 0 0 0 0 0 0 0 0 0 12
0 0 0 0 0 0 0 0 0 0 11 0
0 0 0 0 0 0 0 0 0 10 0 0
0 0 0 0 0 0 0 0 9 0 0 0
0 0 0 0 0 0 0 8 0 0 0 0
0 0 0 0 0 0 7 0 0 0 0 0
0 0 0 0 0 6 0 0 0 0 0 0
0 0 0 0 5 0 0 0 0 0 0 0
0 0 0 4 0 0 0 0 0 0 0 0
0 0 3 0 0 0 0 0 0 0 0 0
0 2 0 0 0 0 0 0 0 0 0 0
1 0 0 0 0 0 0 0 0 0 0 0
Не нашли ответ?
Похожие вопросы