Код:
uses crt;
const n=10;
var mas:Array[1..n] of Real;
s:Real;
i:integer;
begin
//заполнение массива случайными значениями и вывод его на экран
clrscr;
randomize;
for i:=1 to n do begin
mas[i]:=random(100);
writeln(mas[i]); end;
//подсчет суммы элементов массива
s:=0;
for i:=1 to n do
s:=s+mas[i];
writeln('Сумма элементов массива равна ',s);
readln;
end.