Помогите решить задачи в паскале.1)найти сумму положительных элементов массива.2)найти сумму четных элементов массива.3)найти сумму всех четных элементов массива,стоящих на четных местах.

1.var a:array [1..10] of integer; i,s:integer; begin for i:=1 to 10 do begin a[i]:=random(-10,10); if a[i]>0 then s:=a[i]+s; end; writeln(s); end. 2.var a:array [1..10] of integer; i,s:integer; begin for i:=1 to 10 do begin a[i]:=random(10); if a[i] mod 2 = 0 then s:=s+a[i]; end; write(s); end. 3.var a:array [1..10] of integer; i,s:integer; begin for i:=1 to 10 do begin a[i]:=random(101); if (i mod 2 = 0) and (a[i] mod 2 = 0) then s:=s+a[i]; end; writeln(s); end.