$Program(tinh tong)$

$Var: a1,a2,S,i,n,j...: real;$

$Ctr;$

$Begin$

$Writeln(a:=);$

$While i=1 to n$

$S := 0$

If ai $\neq$ 2then Si := S+ ai; 

$P=0;$

$While i=1 to n$

$Pi := P x ai;$

$j=0;$

$While i=1 to n,$

$If ai <0 then j = j+1;$

$Writeln("Si");$

$Writeln ("Pi");$

$Writeln("Ji");$

$End.$

Tick 5 sao +cảm ơn và hay nhất cho mình nhé.

*Mô tả thuật toán:

Bước 1: Nhập N và dãy A[1..n]

Bước 2: tl ← 0; ta ← 1; da ← 0;

Bước 3: i ← 1 to n do 
a. Nếu a[i] mod 2 = 1 thì tl ← tl+a[i]
b. ta ← ta*a[i]
c. Nếu a[i]<0 thì inc(da);

Bước 4: Xuất tl, ta, da ra màn hình và kết thúc thuật toán