Код:
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>
3х=120
х=40
за 40 секунд 1 Мбайт
4 за 160 секунд
или 2 мин 40 секунд
// Среди чисел 1, 4, 9, 16, 25, ... найти первое число, большее n.
Program<span> cyberforum707298;</span>
var
<span>N :integer; </span><span>// Данное число </span>
<span>otvet :integer; </span><span>// ответ </span>
<span>i:integer; </span><span>// счетчик в цикле </span>
begin
Writeln('Введите целое число (N > 0) N=');
readln(N);
i:=1;
While<span> i*i <= N </span>do<span> inc(i);//</span>
otvet:=i*i;
<span>// вывод ответа </span>
Writeln('Ответ = ',otvet)
<span>end.</span>