{$N+}
const
max=1000;
type arr=array[1..max] of longint;
var
x,ind: arr;
n,ni,i,m: longint;
begin
n:=0;
writeln('Вводите натуральные числа, для завершения введите 0');
repeat
inc(n);
readln(x[n]);
until x[n]=0;
dec(n);
writeln('');
if n<1 then
begin
writeln('Кол-во чисел должно быть больше 0');
writeln('Нажмите ENTER');
readln;
halt;
end;
if n<5 then
begin
writeln(0);
writeln('Нажмите ENTER');
readln;
halt;
end;
ni:=0;
for i:=2 to n-1 do
if (x[i]>x[i-1])and(x[i]>x[i+1]) then
begin
inc(ni);
ind[ni]:=i;
end;
if ni<2 then
begin
writeln(0);
writeln('Нажмите ENTER');
readln;
halt;
end;
m:=n;
for i:=1 to ni-1 do if (ind[i+1]-ind[i])<m then m:=ind[i+1]-ind[i];
writeln('Наименьшее расстояние между локальными максимумами = ',m);
writeln('Нажмите ENTER');
readln;
end.
|
