Составить программу 1) найти сумму всех элементов массива

var a: array[1… 10] of integer; i,s: integer; Begin randomize; for i: =1 to 10 do begin a[i]: =random (100); s: =s+a[i]; end; writeln (s); End. var a: array[1… 10] of integer; i,mk,pk,s,p: integer; Begin randomize; p: =1; for i: =1 to 10 do begin a[i]: =random (30+10) -10; if a[i]>=0 then begin pk: =pk+1; s: =s+a[i]; end else begin mk: =mk+1; p: =p*a[i]; end; end; writeln (pk,s,mk,p); End.