Помогите решить пожалуйстаааааа :(
Составьте программу заполнения массива А[N,N] нулями и единицами в шахматном порядке.
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
она не работает
Ответ дал:
0
Массив я сформировал. А куда его приткнуть это уже вам решать.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад
9 лет назад