2. Заполнить одномерный массив, состоящий из N элементов, числами, случайно выбранными из...

Question

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

Answer 1

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.