Заполнить матрицу нулями и единицами в шахматном порядке - Turbo Pascal
Формулировка задачи:
Дан двумерный массив N*N. Заполнить матрицу нулями и единицами, чтобы получилась шахмотная доска.
Код к задаче: «Заполнить матрицу нулями и единицами в шахматном порядке - Turbo Pascal»
program zadacha;
var a:array [1..100,1..100] of byte;
n,i,j:byte;
begin
read(n);
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:=(i+j{если хочешь чтобы единицы заменились на нули,а нули на единицы то сюда еще +1}) mod 2;
write(' ',a[i,j]);
end;
writeln;
end;
end.
Эта работа вам не подошла?
Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.
СДЕЛАЙТЕ РЕПОСТ
5 голосов, оценка 4.600 из 5
Похожие ответы