Не успел, но выкладываю.
Интерено мнение о качестве.
const n= 20;
var A: array[1..n] of Real;
i,null,e: byte;
t,min,sum: Real;
begin
Randomize;
for i:=1 to n do
A[i]:= Random(100)/10;
for i:=1 to n do
Write(A[i]:5:1);
Writeln;
min:= A[1]; null:=0; e:=0;
for i:=1 to n do begin
if A[i]=0 then Inc(null);
if A[i]< min then begin
min:= A[i]; e:=i;
end;
end;
Writeln('Null=',null);
sum:=0;
for i:= (e+1) to n do
sum:= sum+A[i];
Writeln('Summa=',sum:0:1);
for i:=1 to n-1 do
for e:=1 to n-i do
if A[e]>A[e+1] then begin
t:=A[e]; A[e]:=A[e+1]; A[e+1]:=t;
end;
for i:=1 to n do
Write(A[i]:5:1);
Readln;
end.