Заполнить двухмерный массив размером 6 × 6 следующим образом:1 1 1 1 1 11 1 0 0 0 11 0 1 0 0 11 0 0 1 0 11 0 0 0 1 11 1 1 1 1 1!ответ! uses crt;const n=6;var i,j,k: integer; a: array [1..6,1..6] of integer;begin for i:=1 to n d...
Заполнить двухмерный массив размером 6 × 6 следующим образом:
1 1 1 1 1 1
1 1 0 0 0 1
1 0 1 0 0 1
1 0 0 1 0 1
1 0 0 0 1 1
1 1 1 1 1 1
!ответ!
uses crt;
const n=6;
var i,j,k: integer;
a: array [1..6,1..6] of integer;
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
if (i=j) or (j=1) or (i=1) or (i=6) or (j=6) then
a[i,j]:=1
else
a[i,j]:=0;
write(a[i,j]:3);
end;
writeln;
end;
Гость
Ответ(ы) на вопрос:
Гостьconst
n = 6;
var
i, j, k: integer;
a: array [1..6, 1..6] of integer;
begin
for i := 1 to n do
begin
for j := 1 to n do
begin
if (i = j) or (j = 1) or (i = 1) or (i = 6) or (j = 6) then
a[i, j] := 1
else
a[i, j] := 0;
write(a[i, j]:3);
end;
writeln();
end;
end.
Не нашли ответ?
Похожие вопросы