program max_elementarray ;
var i, max : integer ;
a : array [1..10] of integer;
begin
for i : = 1 to 10 do
begin
readln(a[i]);
end;
max : = a[1];
for i : = 2 to 10 do
if a[i]> max then max : = a[i];
writeln('max element of array = ',max) ;
readln ;
end.
1.В переди свободно
Вперёд
Соеденяешь все с "выполнить"
Нажимаешь старт
2.поверни на право
Справа свободно
Вперёд
Соеденяешь все с "выполнить"
Нажимаешь страрт
3.впереди свободно
Вперёд
Соеденяешь с "выполнить"
Нажимаешь старт
Объяснение:
Там надо сделать лёгкий путь, и более адекватные пути вагонетки и все соеденять между собой