//создать массив случайных чисел и вычислить сумму всех его элементов
//
//т.к. размер массива в задании не указан, делаю небольшой
var
mass:array [1..5] of integer; //Объявление переменной массива целых чисел, состоящего из 5 элементов
sum:integer; //Переменная, в которую заносится сумма значений массива
i:integer; //Переменная для цикла
begin
Randomize; //Инициализация ГСЧ
sum:=0; //Обнуление переменной (во избежание глюков)
For i:=1 to 5 do
mass[i]:=Random(999); //Присваивание i-тому элементу массива случйного числа в диапазоне от 0 до 999
For i:=1 to 5 do
sum:=sum+mass[i]; //Прибавление к переменной sum значение i-того элемента массива
Writeln('Сумма случайных значений массива: ',sum); //Вывод сообщения с суммой
Readkey; //Ожидание нажатия любой клавиши
end.