Véletlen számok eltárolása tömbbe, majd az elemek kiíratása (Veletlen.pas) program Veletlen; uses crt; var i,n:integer; a:array [1..100] of integer; Létrehozunk egy 100 elemű, egész számokból álló tömböt, melyet a-nak nevezünk el. BEGIN write('n:='); readln(n); Beolvassuk a tömb elemeinek számát. i:=1; while(i<=n) do begin a[i]:=trunc(90*random+1); Véletlen számokkal töltjük fel a tömb i-edik elemét. Véletlen számot a random függvénnyel állítunk elő. Ezt 90-el szorozzuk,hogy 0 és 89 közötti számokat kapjunk, majd hozzáadunk 1-et, hogy 1 és 90 közötti számok legyenek. Ezek viszont egyenlőre nem egész számok, ezért a trunc paranccsal levágjuk a szám törtrészét és egész számmá alakítjuk. i:=i+1; end; i:=1; while(i<=n) do begin Ciklus segítségével kiírjuk a tömb elemeit. writeln(a[i]); i:=i+1; end; END.