var mass:array [0..6, 0..6] of integer; begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.
--------------------------------
№2
var mass:array [0..6, 0..6] of integer; begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; mass[i][3] := 1; mass[3][i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.
Answers & Comments
var mass:array [0..6, 0..6] of integer;
begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.
--------------------------------
№2
var mass:array [0..6, 0..6] of integer;
begin //заполняем массив for var i := 0 to 6 do begin mass[i][i] := 1; mass[i][6-i] := 1; mass[i][3] := 1; mass[3][i] := 1; end; //выводим массив for var i := 0 to 6 do begin for var m := 0 to 6 do begin write(mass[i][m], ' '); end; writeln(); end;end.