Помоги с задачей плз очень надо.Паскаль

[menlo]

Каждой клетке шахматной доски (квадратной матрицы целых чисел (8x8)) соответствует некоторое число. Сформировать две матрицы Black и White чисел соответствующих черным и белым клеткам.

[kommunist]

в смысле black and white чисел обьсни поподробнее про матрицу которую надо сформировать

[menlo]

Сообщение от kommunist

в смысле black and white чисел обьсни поподробнее про матрицу которую надо сформировать

Ну на шахматной доске 2 цвета клеток чёрные и белые, числа которые стоят на месте чёрных клеток переместить в чёрную матрицу, а белые в белую ну вот например (только пусть 4x4):
начальная матрица
1 3 4 8

6 7 8 9
1 4 2 7

3 6 9 1

белая

1 4

7 9

1 2

6 1

чёрная

3 8

6 8

4 7

3 9

Только с пропуском в тех места, где должны были стоять числа из другого массива

[still_alive]

При нумерации массива с 1:
если i+j четное, то в белую м-цу
если нечетное, то в черную.

[menlo]

Сообщение от still_alive

При нумерации массива с 1:
если i+j четное, то в белую м-цу
если нечетное, то в черную.

да я так и сделал только он чё-то одни нули выводит и всё:
var a:array [1..100,1..100] of integer;
b:array [1..100,1..100] of integer;
c:array [1..100,1..100] of integer;
i,j,q,w,e,r:integer;
begin
writeln('исходный массив');
for i:=1 to 8 do begin
for j:=1 to 8 do begin
a[i,j]:=random(10);
write(a[i,j]:4);
end;
writeln;
end;
writeln('белый массив');
for q:=1 to 8 do begin
for w:=1 to 8 do begin
IF i+j mod 2 = 0 then b[q,w]:=a[i,j];
write(b[q,w]:4);
end;
writeln;
end;
writeln('чёрный массив');
for e:=1 to 8 do begin
for r:=1 to 8 do begin
IF i+j mod 2 <> 0 then c[e,r]:=a[i,j];
write(c[q,w]:4);
end;
writeln;
end;
end.

[menlo]

Там где-то надо по другому end'ы поставить

[AlDelta]

uses crt;
var A,B,C:array[1..8,1..8] of integer;
    i,j,temp:integer;
Begin
clrscr;
randomize;
for i:=1 to 8 do
Begin
for j:=1 to 8 do
Begin
A[i,j]:=random(20)+1;
B[i,j]:=0;
C[i,j]:=0;
write(A[i,j]:3);
End;
writeln;
writeln;
End;

writeln;

for i:=1 to 8 do
Begin
for j:=1 to 8 do
Begin
temp:=(i+j)mod 2;
if temp<>0 then
B[i,j]:=A[i,j]
else
C[i,j]:=A[i,j];
write(B[i,j]:3);
End;
writeln;writeln;
End;
writeln;

for i:=1 to 8 do
Begin
for j:=1 to 8 do
write(C[i,j]:3);

writeln;writeln;
end;

repeat
until keypressed;
End.

P.S.: menlo для оформления своих листингов используй тег CODE. На панели интсрументов кнопка #

[menlo]

огромное спасибо