Код:
for i:=2 to n-1 do if (a[i-1]<a[i]) and (a[i]>a[i+1]) then writeln(i,<span>' element');
(Источник:</span><span>http://www.programmersforum.ru)
</span>
Англичане, американцы, французы, итальянцы называют @ «улиткой». Африканцы, голландцы, поляки, немцы предпочитают называть его «обезьяньим хвостом». Датчане могут сказать «слоновий хобот», норвежцы «свиной хвост», китайцы – «мышонком», а венгры – «червяком».
+ 1010110101
101111001
10000101110