NAIVE的曾经（3）

在微信红包刚推出的时候，我对红包的分配十分感兴趣，于是做了这个东西。

一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一

const

n=100;

var

a:array[1..n] of real;

i,m,b,j:longint;

sum:real;

begin

for i:=1 to 5 do writeln;

sum:=0;

m:=0;

while ( m<=0 ) or ( (trunc(sum * 100) - (sum * 100)) < 0 ) or ( sum * 100

一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一一

不贴图了。