{ Дана таб a[1..n] из целых чисел. Получить элементы, которые находятся между max и min}

uses crt;
var a,b : array [1..10]of longint;
    f,i,j,n,m,max,min,k,l : longint;
label met;
begin
  clrscr;
  write('кол-во элм. табл. n=');readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']=');readln(a[i]);
  end;
  max:=a[1];k:=1;
  for i:=2 to n do
  if a[i]>max then
  begin
    max:=a[i];k:=i;
  end;
  min:=a[1];l:=1;
  for i:=2 to n do
  if a[i]