Разработать схему алгоритма, который вводит массив из 10 целых чисел и выводит на экран сам массив и сумму всех его элементов.

Var A: array [1..10] of integer;
I,S: integer;

begin
for I:=1 to 10 do begin
a[i]:=random(10);
S:=S+A[I];
write(a[i],' ');
end;
writeln;
writeln ('summa=',S);
end.