Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.