program q;
uses crt;
var m, i:byte;
t:array[1..255]of real;
summa:real;
chislo:byte;
begin
clrscr;
summa:=0;
chislo:=0;
writeln('vvedite m (ne bolee 255)');
readln(m);
for i:=1 to m do begin
writeln('vvedite m',i);
readln(t[i]);
summa:=summa+t[i];
end;
for i:=1 to m do begin
if t[i]<summa then chislo:=chislo+1;
end;
writeln('chislo elementov menshih summi vseh elementov=',chislo);
readkey;
end.