Сформировать двумерный массив все элементы равны нулю а элементы главной и побочной диагонали равны единице в паскаль. !

229

493

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

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

grxrtxdfdr

Информатика

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

const n=6; var a: array[1..n,1..n] of integer; i,j: integer; begin for i: =1 to n do for j: =1 to n do if (i=j) or (i=n-j+1) then a[i][j]: =1 else a[i][j]: =0; // вывод на экран for i: =1 to n do begin for j: =1 to n do write(a[i][j]: 4); writeln; end; end. 1 0 0 0 0 1 0 1 0 0 1 0 0 0 1 1 0 0 0 0 1 1 0 0 0 1 0 0 1 0 1 0 0 0 0 1