Ответ:
Program p000;
type interval1545 =15..45l
var a: array [1..20] of interval1545;
i: 1..20;
begin
randomize; (* запуск генератора случайных чисел *)
for i:=1 to 20 do
begin
a[i]:= 15+random(31); (* случайное число в диапазоне 15..45 *)
writeln(a[i]);
end;
end.
Объяснение: