Заполнить двухмерный массив 20 баллов! 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0 1 0

Question

Заполнить двухмерный массив 20 баллов!
1 0 1 0 1
0 1 0 1 0
1 0 1 0 1
0 1 0 1 0

Answer 1

//Pascal
var
  A: array[1..4, 1..5] of byte;
  i, j: byte;
begin
for i := 1 to 4 do
begin
  for j := 1 to 5 do
  begin
    if i mod 2 = 0 then
    begin
      if j mod 2 = 0 then A[i, j] := 1
      else A[i, j] := 0;
      end
      else
      begin
      if j mod 2 = 1 then A[i, j] := 1
      else A[i, j] := 0;
      end;    
    write(A[i, j]:3);
   end;
   writeln;
end;    
end.