Создать массив размерностью n×n элементов и заполнить его по образцу, например для матрицы 6×6: 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 решить pascalabc оформить в виде процедуры.

103

400

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

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

certus

Информатика

4,8(79 оценок)

//pascal abc.net 3.1 сборка 1219 const n=6; type ty=array[1..n,1..n] of integer; procedure inic(var ar: ty); var i,j,k: integer; begin k: =0; for i: =1 to n do begin for j: =1 to n do ar[i,j]: =0; if not(odd(i)) then begin k: =k+2; ar[i,k]: =1; end; end; end;