базовая кодировка текста для латиницы
Индекс
============================
Под локальным максимумом, скорее всего, имеется в виду число, большее
чем оба его соседа, за исключением случая, когда соседом справа является
0. В таком случае достаточно однократно пройтись по всем числам, запоминая минимальное из расстояний между новым и предыдущим обнаруженными максимумами.
Программа (язык Pascal ABC.Net)
var i1,i2,i3:integer;
i:integer;
curr,minr,lastmax:integer;
begin
readln(i1,i2);
i:=2;
minr:=1000000;
repeat
readln(i3);
if (i2>i1) and (i2>i3) and (i3<>0) then begin
curr:=i-lastmax;
if curr<minr then minr:=curr;
lastmax:=i;
end;
i1:=i2;
i2:=i3;
i+=1;
until i2=0;
if minr=1000000 then writeln(0) else writeln(minr); {стоило бы добавить булевую переменную в качестве флага - был ли хоть один max, но вряд ли расстояние между ними превысит миллион :-}
end.
Var q: integer;
<span> s: real;
</span><span>begin
</span><span> q:=0;
</span><span> repeat
</span><span> inc(q);
</span><span> s:=sqr(q)*q/125 - sqr(q) -90*q + 10000;
</span><span> until s<0;
</span><span> writeln('объем выпуска: ',q);
</span><span> s:=(sqr(q)*q/125-sqr(q)+180*q+10000)/q;
</span><span> writeln('затраты на единицу: ',s:5:2);
</span><span>end.
</span>объем выпуска: 86
<span>затраты на единицу: 269.45
</span>
Самая популярная CorelDraw.
Так же хорошие программы: Adobe Streamline, PageMaker.