такую надо состовлять самому! а вот простой алгоритм для аких случаев по этой проге вроде-
program jfe3;
const n=10; {это будет кол-во элементов массива}
var a: array [1..n] of integer; i,s: integer;
begin
for i: =1 to n do begin
a[i]: =random(100); {элемент выбирается случайно от 0 до 100}
s: =s+a[i]; {когда эл. присвоился, его значение плюсуется к общ сумме}
end;
for i: =1 to n do
writeln(a[i],' '); {показать сам массив}
writeln(s); {показать сумму}
readln; {чтобы окно сразу не закрывалось} end.
Раффлезия Арнтольди является самым широким цветком в мире, а самым высоким называют трехметровый Аморфофаллус Титаниум. Он известен также под названиями «трупный цветок», «лилия вуду» и «змеиная пальма».