Создать програмку для этих двумерных массивов: 1 0 1 0 1 0… 1 0 1 0 1 0… 1 0 1 0 1 0… 1 1 1 1 11… .

program zadacha_1; const i=10; j=10; type mymatrix=array[1… i,1… j]of byte; var k,n: integer; a: mymatrix; beginfor k: =1 to i do beginfor n: =1 to j do beginif (n mod 2=1) then a[k,n]: =1else a[k,n]: =0; write (a[k,n]: 1); end; writeln; end; end. Это для 1 случая program zadacha_2; const i=10; j=10; type mymatrix=array[1… i,1… j]of byte; var k,n: integer; a: mymatrix; beginfor k: =1 to i do beginfor n: =1 to j do beginif (k mod 2=1) then a[k,n]: =1else a[k,n]: =0; write (a[k,n]: 1); end; writeln; end; end. Это для 2 случая program zadacha_2; const i=10; j=10; type mymatrix=array[1… i,1… j]of byte; var k,n: integer; a: mymatrix; beginfor k: =1 to i do beginfor n: =1 to j do beginif (n mod 2=1) and (k mod 2=1) or (n mod 2=0) and (k mod 2=0) then a[k,n]: =1else a[k,n]: =0; write (a[k,n]: 1); end; writeln; end; end. Это для 3 случая