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