SHOW:
|
|
- or go back to the newest paste.
| 1 | var vstup,i,cisla,max:integer; | |
| 2 | - | randomize; |
| 2 | + | riadok:string; |
| 3 | - | image1.Canvas.Brush.color:= RGB(random(255),random(255),random(255)); |
| 3 | + | |
| 4 | - | image1.Canvas.Rectangle(100,100,300,199); |
| 4 | + | vstup:= strtoint (inputbox('zadaj','kolko cisel ma vypisat',''));
|
| 5 | - | randomize; |
| 5 | + | max:= random(101); |
| 6 | - | image1.Canvas.Brush.color:= RGB(random(255),random(255),random(255)); |
| 6 | + | riadok:= '' + inttostr(max); |
| 7 | - | image1.Canvas.Rectangle(100,100,300,166); |
| 7 | + | for i:= 2 to vstup do |
| 8 | - | randomize; |
| 8 | + | |
| 9 | - | image1.Canvas.Brush.color:= RGB(random(255),random(255),random(255)); |
| 9 | + | randomize; |
| 10 | - | image1.Canvas.Rectangle(100,100,300,133); |
| 10 | + | cisla:= random(101); |
| 11 | riadok:= riadok + ' ' + inttostr(cisla); | |
| 12 | - | |
| 12 | + | if cisla>max then max:=cisla; |
| 13 | end; | |
| 14 | memo1.Lines.add(riadok); | |
| 15 | memo1.lines.add(inttostr(max)); | |
| 16 | end; | |
| 17 | end. |
