№407 исполнитель чертёжник перемещается на координатной плоскости, оставляя след в виде линии. - id991015420200724 от TemirMamekov 24.07.2020 00:52

Question

Информатика: №407 исполнитель чертёжник пе­ре­ме­ща­ет­ся на ко­ор­ди­нат­ной плоскости, остав­ляя след в виде линии. чертёжник может вы­пол­нять ко­ман­ду сместиться на (a, b) (где a, b — целые числа), пе­ре­ме­ща­ю­щую чертёжника из точки с координатами (x, у) в точку с ко­ор­ди­на­та­ми (x + а, у + b). если числа a, b положительные, зна­че­ние со­от­вет­ству­ю­щей ко­ор­ди­на­ты увеличивается; если отрицательные, уменьшается. например, если чертёжник на­хо­дит­ся в точке с координатами (4, 2), то ко­ман­да

TemirMamekov · Accepted Answer

Const
n=5;
var
a:array[1..n,1..n] of integer;
i,j:integer;

begin
//генератор случайных чисел. Диапазон от 1 до 10.
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(10)+1;
write(a[i,j]," ");
end;
writeln();
end;

//Проверка условия и переприсвоение, если верно.
for i:=1 to n do
for j:=1 to n do
begin
if (((i+j) mod 2)=0) then
a[i,j]:=a[1,2];
end;

//Вывод полученного массива.
for i:=1 to n do
begin
for j:=1 to n do
begin
write(a[i,j]," ");
end;
writeln();
end;

//Ожидание.
readln();
end.

MOGZ ответил