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

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.