Заполнить матрицу нулями и единицами в шахматном порядке - Turbo Pascal

Формулировка задачи:

Дан двумерный массив N*N. Заполнить матрицу нулями и единицами, чтобы получилась шахмотная доска.


textual

Код к задаче: «Заполнить матрицу нулями и единицами в шахматном порядке - 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

Источник