1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
| //le compte est bon
// On dispose de 6 nombres ou chiffres tirés au hasard parmi :
// les 9 premiers chiffres (1, 2, 3, 4, 5, 6, 7, 8, 9)
// les nombres : 10, 25, 50, 100
//On tire au hasard un nombre compris entre 100 et 999.
const tb1=13;
const tb2=6;
var table: array [1..tb1] of integer;
var table2: array [1..tb2] of integer;
var x:integer;
begin
randomize;
table[1]:=1;
table[2]:=2;
table[3]:=3;
table[4]:=4;
table[5]:=5;
table[6]:=6;
table[7]:=7;
table[8]:=8;
table[9]:=9;
table[10]:=10;
table[11]:=25;
table[12]:=50;
table[13]:=100;
table2[1]:=random(table[1..13]);
table2[2]:=random(table[1..13]);
table2[3]:=random(table[1..13]);
table2[4]:=random(table[1..13]);
table2[5]:=random(table[1..13]);
table2[6]:=random(table[1..13]);
writeln(table2[1]);
writeln(table2[2]);
writeln(table2[3]);
writeln(table2[4]);
writeln(table2[5]);
writeln(table2[6]);
readln;
end. |
