В произвольно заданном одномерном массиве определить элементы, слева и справа то которых расположены меньшие значения.

[tron19]

В произвольно заданном одномерном массиве определить элементы, слева и справа то которых расположены меньшие значения.[PASCAL]

[newerow1989]

var a:array[1..10] of integer;
    i,m:integer;
begin
   Randomize;
   For i:=1 to 10 do
   begin
      a[i]:=Random(21);
      Write(a[i],'  ');
   end;
   Writeln;
   Writeln;
   m:=a[1];
   For i:=2 to 5 do
      If m>a[i] then
         m:=a[i];
   Writeln('sleva  = ',m);
   m:=a[6];
   For i:=7 to 10 do
      If m>a[i] then
         m:=a[i];
   Writeln('sprava  = ',m);
   Readln;
end.

Сойдет?

[Aleksandr H.]

newerow1989, можете прокомментировать код?

Я задание понял как: найти такие елементи A[k] что A[k-1]<A[k]>A[k+1]

[newerow1989]

А я по-другому:
в первой половине (слева) найти минимальный элемент, а во второй (справа) - то же минимальный