randomize ... а что это значит?

Паскаль. написать программу которая, используя признаки делимости, определяет, делится ли число на 6. var a, c: integer; begin cls; randomize; a:=random (99999+99999+1) - 99999; writeln ('исходное числo: ', a) ;

составить программу на ЯП Паскаль, которая бы при помощи генератора СЧ [напомню, это ф-ции randomize и random (i) ] позволяла бы сыграть с ПК в игру "угадай число" при помощи виртуальной игральной кости. Счёт ведётся до 10 набранных очков.

Program Example2; var Rand: array[1 ... 20] of integer; I, X, NumberX:integer, begin Randomize; writeln ('Masiv slychainix chisel') for I:=1 to 20 do begin Rand[I]:random (50) ; write (Rand[I]:4) end; writeln; write ('Vvedite X:')) ; readln (X) ;

Что тут не так? Uses crt; Const N=20; Var a:array [1 ... N] of integer; i:integer; Begin clrscr; randomize; for i:=1 to N do a:=random (100) ; Redln (a) ; Writeln ('Элементы масива:', a) ; End.

Здравствуйте, что в этом коде на free pascal считает k? program SiberiaBoss; var a:array[1 ... 100] of integer; i, k, n:integer; begin readln (n) ; randomize; for i:=1 to n+1 do begin a[i]:=random (10) ; if a[i] < i then k:=k+1; writeln (a[i]:3) ;