. Разработать схему алгоритма, который вводит массив из 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.
Спасибо большое
Ты супер