program PascalGuru;
uses crt;
 
type massiv=array[1..100] of integer;
 
var B: massiv;
    i,n,max,min,summa:integer;
 
begin
write('razmer massiva N= ');  readln(n);
 
writeln('Vvedite elementy massiva:');
for i:=1 to n do begin
write('B[',i,']= '); readln(B[i]); end;
clrscr;
writeln('Vot vvedenye vami massiv: ');
for i:=1 to n do write(B[i],', ');
writeln;
writeln;
 
max:=1; min:=1;
for i:=2 to n do
    begin
    if B[i]>B[max] then max:=i;
    if B[i]<B[min] then min:=i;
    end;
 
summa:=0;
for i:=min+1 to max-1 do summa:=summa+B[i];
 
writeln;
writeln('Summa= ',summa);
readln;
end.