Эм, ну, обычно для такого задания дают рисунок. Исходя из рисунка строиться путь, т.к есть разные варианты дороги, нельзя к каждому написать один алгоритм.
Но он будет в роде: "влево/вправо пока закрашено" таким образом, робот будет идти в сторону, до тех пор, пока клетки будут закрашены. Также, если будет пробел (закрашено, по середине пусто, закрашено) , то нужно написать следующий алгоритм : "Если незакрашено вправо/влево" НО если там будет извилистая дорога, то потребуются еще действия. Надеюсь, вы поняли. Удачи!
Const n =5; var a:array[1..n] of integer; i,max:integer; begin writeln('Введите 1 элемент массива'); readln(a[1]); max:=a[1]; for i:=2 to n do begin writeln('Введите ', i,' элемент массива'); readln(a[i]); if a[i]>max then max := a[i]; end; writeln('Максимальный элемент массива равен ',max); end.
Тестовое решение: Введите 1 элемент массива 21 Введите 2 элемент массива 56 Введите 3 элемент массива 12 Введите 4 элемент массива 24 Введите 5 элемент массива 15 Максимальный элемент массива равен 56
Но он будет в роде: "влево/вправо пока закрашено"
таким образом, робот будет идти в сторону, до тех пор, пока клетки будут закрашены.
Также, если будет пробел (закрашено, по середине пусто, закрашено) , то нужно написать следующий алгоритм : "Если незакрашено вправо/влево"
НО если там будет извилистая дорога, то потребуются еще действия.
Надеюсь, вы поняли. Удачи!
var
a:array[1..n] of integer;
i,max:integer;
begin
writeln('Введите 1 элемент массива');
readln(a[1]); max:=a[1];
for i:=2 to n do begin
writeln('Введите ', i,' элемент массива');
readln(a[i]);
if a[i]>max then max := a[i];
end;
writeln('Максимальный элемент массива равен ',max);
end.
Тестовое решение:
Введите 1 элемент массива
21
Введите 2 элемент массива
56
Введите 3 элемент массива
12
Введите 4 элемент массива
24
Введите 5 элемент массива
15
Максимальный элемент массива равен 56