Помогите решить пожалуйстаааааа :( Составьте программу заполнения массива А[N,N] нулями и единицами в шахматном порядке.
Помогите решить пожалуйстаааааа :(
Составьте программу заполнения массива А[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.
Не нашли ответ?
Похожие вопросы