Массив заполняется члучайными числами от 0 до 100.
var
a:array[1..12] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 12 do
begin
a[i]:=random(101);
writeln('a[',i,']=',a[i]);
sum:=sum+a[i];
end;
writeln;
writeln('Summa elementov massiva = ',sum);
end.