Определите наименьшее расстояние между двумя локальными максимумами последовательности натуральных чисел, завершающейся числом 0. если в последовательности нет двух локальных максимумов, выведите число 0. начальное и конечное значение при этом локальными максимумами не считаются. pascal или python

Под локальным максимумом, скорее всего, имеется в виду число, большее чем оба его соседа, за исключением случая, когда соседом справа является 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     x,p: array[1..100] of integer;     k,n: integer; begin write('введите k: '); readln(k); write('введите массив x(',k,'): '); for k: = 1 to k do       read(x[k]); write('массив p: '); n: =0; for k: = 1 to k do       if x[k]< 0 then             begin             n: =n+1;             p[n]: =x[k];             end; for k: = 1 to k do       if x[k]=0 then             begin             n: =n+1;             p[n]: =x[k];             end; for k: = 1 to k do       if x[k]> 0 then             begin             n: =n+1;             p[n]: =x[k];             end; for k: = 1 to k do       write(' ',p[k]) end. пример: введите k: 6 введите массив x(6): 3 0 -2 2 4 -3 массив p: -2 -3 0 3 2 4