Помогите решить задачи в паскале. 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.