blob: 3f9e74e30828d1ef6babe186679e9dffe160db47 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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.
|
