ну вот они, составил коды и дальше не знаю как собрать все в одно
Код:
g: array [1..n] of integer;

Код:
Randomize;
For I := 1 to n do g[I] := Random(500);


Код:
Write(‘Введите число b’);
Readln(;
S:=0;
For i:=1 to n do
If b[i]<b then s:=s+1;