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

program zz1;

const n = 50; / / задаем количество элементов в массиве

var i, s, a, b:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

write (' введите заданное число а ');

read (a);

write (' введите заданное число b ');

read (b);

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (b) + a;

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do

s:=s + m[i];

writeln (' сумма элементов = ', s); / / выводим ответ

end.