Робот потерялся в темноте и не знает, где находится. Напиши код для робота так, чтобы он мог вернуться - id2101816120210207 от вова985 07.02.2021 11:19

Question

Информатика: Робот потерялся в темноте и не знает, где находится. Напиши код для робота так, чтобы он мог вернуться на базу из любой клетки.

вова985 · Accepted Answer

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
var n:=ReadInteger('Количество строк в массиве:');
var m:=ReadInteger('Количество столбцов в массиве:');
Writeln('*** Исходный массив [',n,',',m,'] ***');
var a:=MatrRandom(n,m,0,1);
a.Println(2); Writeln(2*a.ColCount*'-');
var b:=a.ElementsByRow.Where(x->x=1).ToArray;
var k:=b.Count; b.Println;
Writeln('k=',k)
end.

Пример
Количество строк в массиве: 5
Количество столбцов в массиве: 12
*** Исходный массив [5,12] ***
0 0 1 1 1 1 1 1 0 0 1 0
0 1 1 1 0 0 1 1 1 0 1 0
1 0 0 1 0 1 0 0 0 0 0 0
1 0 0 0 0 1 0 1 0 0 1 0
1 1 1 1 0 1 1 0 1 0 0 1

1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
k=29

Робот потерялся в темноте и не знает, где находится. Напиши код для робота так, чтобы он мог вернуться на базу из любой клетки.

MOGZ ответил