Question

задать циклы для решения задачи: формирует массив Е из 162 случайных чисел принадлежащих промежутку[15:30]. Параметром цикла является переменная X. Нумерация начинается с 1.

Answer 1

var x:byte;   
     e:array [1..162] of integer;
begin
for x:=1 to 162 do
e[x]:=random(15,30);
end.