[prasvit]

я сделал!!!!

a[1]:=random(1200-19)+1; //макс элемент, остальные могут быть только единицы
sum:=a[1];
b:=(1200-19)+1-a[1];
for i:=2 to 19 do
begin
a[i]:=random(b)+1;
b:=b+1-a[i];
sum:=sum+a[i];
end;
a[20]:=1200-sum;