Составьте процедуру обнуляющую минимальное количество элементов так, чтобы сумма элементов столбца не превышала заданную

[KorsD]

Составьте процедуру, обнуляющую минимальное количество элементов так, чтобы сумма элементов столбца матрицы из натуральных чисел A(m x n) не превышала заданную.
Спасибо заранее!

[Вадим Мошев]

ИМХО, обнулять надо начинать с максимального элемента

[Slym]

while sum(a)>S do
begin
  i:=Max(a);
  a[i]:=0;
end;

[Serge_Bliznykov]

тогда уже хотя бы так:

sumA := sum(a);
while sumA>S do
begin
  i:=Max(a);
  sumA := sumA - a[i];
  a[i]:=0;
end;