uses crt;
var
a, b, col: array[1..20, 1..20] of integer;
i, j, k: integer;
begin
for i := 1 to 20 do
begin
for j := 1 to 20 do
a[i, j] := 0;
b[i, j] := 0;
end;
k := 2;
for i := 10 downto 2 do {zapolnenie pervoy chasty}
begin
for j := k to 10 do
begin
a[i, j] := random(9) + 1;
col[i, j] := 7; {serij}
end;
inc(k);
end;
k := 11;
for i := 2 to 10 do {zapolnenie vtoroy chasty}
begin
for j := 11 to k do
begin
a[i, j] := random(9) + 1;
col[i, j] := 10; {zelenij}
end;
inc(k);
end;
k := 11;
for i := 19 downto 11 do {zapolnenie tret'ey chasty}
begin
for j := 11 to k do
begin
a[i, j] := random(9) + 1;
col[i, j] := 14; {geltij}
end;
inc(k);
end;
k := 2;
for i := 11 to 19 do {zapolnenie chetvertou chasty}
begin
for j := k to 10 do
begin
a[i, j] := random(9) + 1;
col[i, j] := 13;
end;
inc(k);
end;
b := a;
{razvorachivaem}
for i := 1 to 10 do
for j := 1 to i do
begin
b[j, i + 10] := b[i, 11 - j];
col[j, i+10] := col[i, 11-j];
b[21 - j, i + 10] := b[i, j + 10];
col[21 - j, i + 10] := col[i, j + 10];
b[i + 10, j] := b[j + 10, 21 - i];
col[i + 10, j] := col[j + 10, 21 - i];
b[j, 11 - i] := b[21 - i, 11 - j];
col[j, 11 - i] := col[21 - i, 11 - j];
end;
{vivodim}
textbackground(0);
clrscr;
writeln(' ISHODNAYA');
for i := 1 to 20 do
begin
for j := 1 to 20 do
begin
textcolor(col[i, j]);
write(' ', a[i, j]:2);
end;
writeln;
end;
writeln;
writeln(' REZULTIRUUSHAYA');
for i := 1 to 20 do
begin
for j := 1 to 20 do
begin
textcolor(col[i, j]);
write(' ', b[i, j]:2);
end;
writeln;
end;
readln;
end.
Сообщение отредактировано: Ugrumiy -