paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 01:49:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ tw3210

Browse Source
This commit is contained in:
Jonas Maebe 2004-07-14 14:46:05 +00:00
parent 1f338ade0d
commit 9a9c17f078
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/webtbs/tw3210.pp Normal file
View File

@ -0,0 +1,18 @@
Const
N = 10000;
Var
count : array[0..200] of int64;
i , tot : longint;
Begin
fillchar(count , sizeof(count) , 0);
for i := 1 to N do
begin
inc(count[random(201)]);
end;
tot := 0;
for i := 0 to 200 do inc(tot , count[i]);
if (tot <> N) then
halt(1);
End.