uses crt;
var i,size,summa,num:integer;
t:array[1..10000] of integer;
begin;
clrscr;
writeln('Введите размер массива');
readln(size);
writeln('Введите элементы массива');
FOR i := 1 TO size do
begin
readln(t[i]);
end;
FOR i := 1 TO size do
begin
summa := summa + t[i];
end;
FOR i:= 1 TO size do
begin
IF t[i] < summa THEN num := num + 1;
end;
writeln('В массиве элементов меньше суммы всех элементов ', num);
end.