Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program balloons;
- var amount, maxWeigth, i, minimum, currentWeigth, maximum, outputAmount, minimumIndex:integer;
- weigth: array of integer;
- isMax:boolean;
- begin
- readln(amount, maxWeigth);
- setlength(weigth, maxWeigth);
- maximum:=0;
- for i := 1 to amount do begin
- read(weigth[i]);
- if weigth[i]>maximum then
- maximum:=weigth[i];
- end;
- isMax:=false;
- while (not isMax) do begin
- minimum:=maximum;
- for i := 1 to amount do begin
- if (weigth[i]<minimum) and (weigth[i]<>0) then begin
- minimum:=weigth[i];
- minimumIndex:=i;
- end;
- end;
- weigth[minimumIndex]:=0;
- if currentWeigth+minimum<=maxWeigth then begin
- currentWeigth:=currentWeigth+minimum;
- outputAmount:=outputAmount+1;
- end
- else
- isMax:=true;
- end;
- writeln(outputAmount);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement