var a:array[1..1000] of integer;
i,s,n:integer;
begin
writeln('введите кол-во элементов массива');readln(n);
for i:=1 to n do begin a[i]:=random(30); write(a[i]:3); end;
for i:=1 to n do
 s:=s+a[i];
writeln;
writeln('сумма=',s);
end.