Сформулируйте массив по образцу 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

267

359

Посмотреть ответы 3

Ответы на вопрос:

maxim880055535351

Информатика

4,7(57 оценок)

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.

максон50

Информатика

4,5(47 оценок)

// 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