Question

напиши программу в Pascal, которая заполняет массив Rost длиной 12 случайными числами от 150 до 180

Answer 1

var rost: array [1..12] of integer;
i: integer;
begin 
for i:=1 to 12 do   
begin    
rost[i]:=random(30)+150;    
write (rost[i]:5);   
end;
end.