Масивы и розмещение в них элементов

[Debar]

Исходный масив Mas12 Разместить в масиве NSUM только те элементы исходного масива, которые не превышают суму всех его елементов.

[Z1000000]

j := 0;
for i:=1 to 100 do
 begin
 if A[i] < Summa then
  begin
  j := j+1;
  B[j] := A[i];
  end;
 end;

[Utkin]

j=0
for i in 1..100
   if a[i]<100
      j+=j
      b[j]=a[i]
   end
end

[Sibedir]

Лыжи встали...
Как один элемент массива может быть больше суммы всех его элементов?

[Z1000000]

Как один элемент массива может быть больше суммы всех его элементов?

Если массив содержит элементы с разными знаками.
Например сумма элементов будет равна 0. Отрицательные элементы будут меньше суммы, положительные больше.

[Sibedir]

О-о-о, поехали.
Спасибо, Z1000000.