Question

Двумерный массив. Вывести на экран двумерный массив (таблицей) из чередующихся нулей и единиц. Вот что я пытаюсь сделать, помогите пожалуйста.

Answer 1

// PascalABC.NET 3.0, сборка 1128
begin
  var n:=ReadInteger('n=');
  var a:=new integer[n,n];
  var k:integer;
  for var i:=0 to n-1 do begin
    if Odd(i) then k:=0 else k:=1;
    for var j:=0 to n-1 do begin
      a[i,j]:=k; Write(k); if k=1 then k:=0 else k:=1
      end;
    Writeln
    end
end.

Тестовое решение:
n= 10
1010101010
0101010101
1010101010
0101010101
1010101010
0101010101
1010101010
0101010101
1010101010
0101010101