Помогите решить пожалуйстаааааа :( Составьте программу заполнения массива А[N,N] нулями и...

Question

Помогите решить пожалуйстаааааа :(

Составьте программу заполнения массива А[N,N] нулями и единицами в шахматном порядке.

Answer 1

Program ayaya;

uses sysutils;

const N = 1000;
var YArr: array [0..N] of array [0..N] of integer;
i, j: integer;
fst, cur: boolean;

BEGIN
fst = 0;
 for i:=0 to N do begin
cur = fst;
  for j:=0 to N begin
   if(cur) then YArr[i, j] = 0 else YArr[i, j] = 1;
   cur = not cur;
  end;
 fst = not fst;
 end;
END.

Comments

она не работает

---

Массив я сформировал. А куда его приткнуть это уже вам решать.