2. заполнить одномерный массив, состоящий из n элементов, числами, случайно выбранными из диапазона [a,b]. значение n описывается как константа, значения a и b с клавиатуры. вывести элементы массива на экран в строку. вычислить сумму элементов массива и вывести ее на экран.

Const n=10;
var
arr: array[1..n] of integer;
a, b, i, s: integer;
begin
readln(a, b);
randomize;
for i:=1 to n do
arr[i] := random(b-a+1)+a;
s:=0;
for i:=1 to n do
inc(s, arr[i]);
writeln(s);
end.