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.