Question

Задайте массив из 10 элементов с помощью датчика случайных чисел лежащих промежутке от -20 до 18

Answer 1

const
    max_v = 10;
    m1 = -20;
    m2 = 18;
    
var v:array [1..max_v] of integer;
    i:byte;

begin
  randomize();
  for i:=1 to max_v do
    v[i]:=random(m1,m2);

end.