uses crt;
const n = 15;
var
x:array[1..n] of integer;
min:integer;
i:byte;
begin clrscr;
min := 0;
randomize;
writeln('Massiv : ');
for i:=1 to n do begin
x[i]:=random(20);
writeln(x[i]);
end;
           
writeln;
for i:=1 to n do begin
if (x[i-1]>x[i]) and (x[i+1]>x[i]) and (x[i]>min)
then min:=x[i];
end;
writeln('Max local minimum: ',min);
readln;
end.

const n = 4;
var a:array[1..n] of integer;
       k,l,i,s,c:integer;
       su: real;
begin
for i:=1 to n do a[i]:=random(100);
       repeat
       writeln('введите k');
       readln(k)
       until (1<k);
       repeat
       writeln('введите l');
       readln(l)
       until (l>=k) and (l<=n);
         for i:=1 to n do
         begin
          if (i<k) or (i>l) then
           begin
           s:= a[i]+s;
           c:=c+1;
           end;
         end;
         su:=s/c;
         Writeln ('Исходный массив A: ');
         for i:=1 to n do Write(a[i], ' ');
         writeln;
         writeln(su);     
end.