[Janom]

Код:

program Project2;
uses crt;
var b:array[1..15] of integer;
    i,n:integer;
    s:String;
procedure SUM;
var summ:integer;
begin
  summ:=0;
    For i:=1 to n do
      summ:=summ+b[i];
WriteLn('===================================');
WriteLn('Result=',summ);
ReadLn;
end;
begin
Randomize;
s:='';
WriteLn('Vvedite Razmer Massiva (ot 1 do 15)');
ReadLn(n);
  for i:=1 to n do
    begin
      b[i]:=Random(10);
      s:=s+':'+IntToStr(b[i]);
    end;
WriteLn('Elem. Mass.:',s);
SUM;//Вызов процедуры