Program zadacha;
vara: array[1..10] of integer;i,min,n: integer;
beginn:=0;for i:=1 to 10 do begina[i]:=-5+random(5);write(a[i]:4);min:=a[1];end;
for i:=2 to 10 do beginif min>a[i] then min:=a[i];end;
for i:=1 to 10 do beginif a[i]=min then beginn:=n+1;end;end;
writeln();writeln('min=',min);writeln('n=',n);end.
Ответ:
посмотри в ютабе, тут сложно написать
Орел-зрение
Волк-обоняние
Летучая мышь-слух
Дельфин-слух
Крот-осязание
Пока сверху и не слева стена
вперед
вниз
вниз
вниз
вправо
вправо
вправо
закрасить
пока сверху стена
закрасить вперед
пока не снизу стена
закрасить
вниз
пока снизу стена
закрасить
влево
наверх
закрасить
направо
закрасить
направо
закрасить
направо
закрасить
направо
закрасить
<em>VAR</em>
<em> s: String;</em>
<em>BEGIN</em>
<em> Read(s);</em>
<em> Write((Ord(s[1])-48)*(Ord(s[2]) + Ord(s[3]) - 96));</em>
<em>END.</em>