в одномерном массиве, состоящем из nвещественных элементов,вычислить.

uses crt;
var
a:array[1..100]of real;
i,j,n,pos,ot1,ot2:integer;
min,temp,sum:real;
begin clrscr;
write('n=');
read(n);
for i:=1 to n do
 begin
  write('a[',i,']=');
  read(a[i]);
 end;
writeln;
writeln('ishodnyi massiv:');
for i:=1 to n do
write(a[i]:2:2,'  ');
min:=a[1];
pos:=1;
for i:=1 to n do
if a[i]<min then
 begin
  min:=a[i];
  pos:=i;
 end;
writeln;
writeln('min=',min:2:2,' in pos=',pos);
for i:=n downto 1 do
if a[i]<0 then ot1:=i;
for i:=n downto ot1+1 do
if a[i]<0 then ot2:=i;
sum:=0;
for i:=ot1+1 to ot2-1 do
sum:=sum+a[i];
writeln('summa=',sum:2:2);
writeln('preobrazovannyi massiv:');
for i:=1 to n do
for j:=1 to n-1 do
if abs(a[j])>=1 then
 begin
  temp:=a[j];
  a[j]:=a[j+1];
  a[j+1]:=temp;
 end;
for i:=1 to n do
write(a[i]:2:2,'  ');
readkey;
end.