Такую надо состовлять самому!А вот простой алгоритм для аких случаев по этой проге вроде-
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.
26(букв)+10(цифр)=36, т.е чуть больше 5 бит (<span>
5,169925)</span>≈6 бит, 2^6=64 символа может быть в алфавите, можно добавить 64-36=28 символов<span><span>
</span></span>
var
i,n:integer;
s:real;
begin
repeat
write ('N = ');readln(n);
until (n>0);
s:=0;
for i:=1 to n do s:=s+1/i;
writeln ('S = ',s:0:4);
readln;
end.