1. Составьте программу вычисления в массиве А

1) vara: array[1… 10] of integer; s: integer; i: byte; beginrandomize; s: =0; for i: =1 to 10 dobegina[i]: =random (7) -1; writeln ('a[',i,']=',a[i]); s: =s+a[i]; end; writeln ('Сумма элементов=',s); end.