а есть картинка этого задание или опишите его нормально
< первое больше
> меньше
>меньше
>меньше
Var
N,A,P:integer;
Begin
P:=1;
Write('N = ');Read(N);
For N:= 1 to N do
Begin
Read(A);
if A > 0 then P:=P*A
End;
WriteLn(P);
End.
Робот дважды пересек одну клетку + проехал по клетке, на которой стоял изначально.
Ответ зависит от того, как интерпретировать слово "посетил".
Если смысл "когда-либо находился", то 2
Если "пересекал", то 1