var
a:array [1..15] of integer;
b,c:integer;
Begin
for b:=1 to 15 do begin
a[b]:=random(31);
write(a[b],' ');
c:=c+a[b];
end;
writeln;
writeln(c);
end.
var
a:array [1..15] of integer;
b,c:integer;
Begin
for b:=1 to 15 do begin
a[b]:=random(31);
write(a[b],' ');
c:=c+a[b];
end;
writeln;
writeln(c);
end.