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

Спасибо большое

Ты супер

var A: array [1..10] of integer;I,S: integer;beginfor I:=1 to 10 do begina[i]:=random(10);S:=S+A[I];write(a[i],' ');end;writeln;writeln ('summa=',S);end.