Исполнитель Робот умеет перемещаться по лабиринту, начерченному на плоскости, разбитой на клетки Между - id2135504620221124 от KittyClab 24.11.2022 01:50

Question

Информатика: Исполнитель Робот умеет перемещаться по лабиринту, начерченному на плоскости, разбитой на клетки Между соседними (по сторонам) клетками может стоять стена, через которую Робот пройти не может. Робота есть девять команд. Четыре команды - это команды-приказы: Вверх вниз влево вправо Также у Робота есть команда закрасить, при которой закрашивается клетка, в которой Робот находитс. В настоящий момент. Ещё четыре команды — это команды проверки условий. Эти команды проверяют, свободен ли путь дл. Робота

KittyClab · Accepted Answer

Var
a: array[1..n] of integer;
k, i, m: byte;
min: integer;

begin
Write('Razmer massiva: ');
Readln(k);
if (k < 0) or (k > 100) then
begin
Writeln('Razmer dolzhen byt bolshe 0 i menshe 100');
Readln;
Exit;
end;
Randomize;
Writeln('Ishodn. massiv: ');
for i:=1 to k do
begin
a[i]:=Random(101)-50;
write(a[i]:4);
end;
min:=a[1];
for i:=2 to k do
if a[i] < min then
begin
min:=a[i];
m:=i;
end;
a[m] := a[1];
a[1] := min;
Writeln;
Writeln('Min element = ', min:4, ' v posicii ', m:3);
Writeln('Rezult. massiv: ');
for i:=1 to k do
write(a[i]:4);
readln;
end.

MOGZ ответил