Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Дан массив размера N. Найти минимальный из его локальных максимумов
(локальный максимум – это элемент, который больше любого из своих соседей).

Ответ оставил Гость

Program z1;  Var a: array [1..1000] of integer;      b: array [1..1000] of integer; i,j,n,min,m:integer;Begin  write(Введите размер массива - );  readln(n);  randomize;  for i:=1 to n do  begin    a[i]:=random(50)-0;    write (a[i], );  end;    j:=1;  for i:=2 to n-1 do  begin    if ((a[i]>a[i-1]) and (a[i]>a[i+1]))      then begin            b[j]:=a[i];            j:=j+1;           end;  end;    m:=j-1;  writeln;  for j:=1 to m do    write (b[j], );    min:=b[1];  for j:=2 to m do    if (b[j]End.