uses crt;
var a:array[1..100] of real;
i,j,n,ti1,ti2:integer;
sum,min,max,x,p:real;
begin
ClrScr;
Randomize;
Write('n=');
Readln(n);
for i:=1 to n do
begin
a[i]:=-10+random(20);
Write(a[i]:0:1,' ');
end;
sum:=0;
for i:=1 to n do
if a[i]>0 then
sum:=sum+a[i];
min:=a[1];
max:=1;
for i:=1 to n do
if abs(a[i])<min then
begin
min:=abs(a[i]);
ti1:=i;
end;
for i:=1 to n do
if abs(a[i])>max then
begin
max:=abs(a[i]);
ti2:=i;
end;
Writeln;
Writeln('Min=',min:0:1,' [',ti1,']');
Writeln('Max=',max:0:1,' [',ti2,']');
p:=1;
for i:=ti1+1 to ti2-1 do
p:=p*a[i];
Writeln;
Writeln('Sum=',sum:0:1);
Writeln('P=',p:0:1);
for i:=1 to n do
for j:=i to n do
if a[i]<a[j] then
begin
x:=a[i];
a[i]:=a[j];
a[j]:=x;
end;
for i:=1 to n do
Write(a[i]:0:1,' ');
Readln;
end.
Вроде без ошибок..