Cho A=(a1,a2,-..,an).Hãy mô tả thuật toán a)Tính tổng các số lẻ b)Tính tích dãy số a c)Đếm xem có bao nhiêu số âm 30/07/2021 Bởi Arya Cho A=(a1,a2,……,an).Hãy mô tả thuật toán a)Tính tổng các số lẻ b)Tính tích dãy số a c)Đếm xem có bao nhiêu số âm
$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é. Bình luận
*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 Bình luận
$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