Помогите пожалуйста решить две задачи!!

1 задача) Дан массив. Найти сумму и произведение нечетных элементов кратных 3

2 задача) Дан массив. Найти кол-во положительных в нем элементов

Заранее огромное спасибо!

огромное вам спасибо)

не за что...

2)const n=10;var a:array[1..n] of integer;k,i:integer;beginwriteln('vvedite massiv=');for i := 1 to n do readln(a[i]);k:=0;for i :=  1 to n do if a[i]>0 then  inc(k);writeln ('k=',k);readln;end.______________1)const n=10;var a:array[1..n] of integer;s,p,i:integer;beginwriteln('vvedite massiv=');for i := 1 to n do readln(a[i]);s:=0;p:=1;for i :=  1 to n do if (a[i] mod 2=1) and (a[i] mod 3=0) then begin s:=s+a[i];p:=p*a[i];end;writeln('s=',s, ' p=',p);readln;end.