KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Sử dụng biến mảng, nhập n từ bàn phím, đếm xem có mấy số lẻ. Tìm tích của chúng
By aihong
Sử dụng biến mảng, nhập n từ bàn phím, đếm xem có mấy số lẻ. Tìm tích của chúng
Program so-le; Var A:array[1..100] of integer; S,d,i,n: integer; Begin Writeln(‘Nhap n =’); Readln(n); For i:=1 to n do Begin Writeln(‘Nhap A[‘,i,’] = ‘); Readln(A[i]); End; d:=0; S:=1; For i:= 1 to n do If A[i] mod 2 <> 0 then Begin d:=d+1; S:=A[i]*S; End; Writeln(‘Co ‘, d,’ so le ‘); Writeln(‘Tich la: ‘,S); Readln; End.
Uses crt; Var a:array[1..100] of integer; i,n,dem,S: integer; Begin Clrscr; Repeat Writeln(‘Nhap N =’); Readln(n); Until n > 0; For i:=1 to n do Begin Writeln(‘Nhap a[‘,i,’] = ‘); Readln(a[i]); End; dem:=0; S:=1; For i:= 1 to n do If a[i] mod 2 <> 0 then Begin dem:=dem+1; S:=a[i]*S; End; Writeln(‘Co ‘, dem,’ so le ‘); Writeln(‘Tich cua S=’,S); Readln; End.
*Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Đảm bảo đúng hết luôn 😀 Thanks so much :333 P/s: Không hiểu chỗ nào, comment giải đáp!
Program so-le;
Var A:array[1..100] of integer;
S,d,i,n: integer;
Begin
Writeln(‘Nhap n =’); Readln(n);
For i:=1 to n do
Begin
Writeln(‘Nhap A[‘,i,’] = ‘); Readln(A[i]);
End;
d:=0; S:=1;
For i:= 1 to n do If A[i] mod 2 <> 0 then
Begin
d:=d+1;
S:=A[i]*S;
End;
Writeln(‘Co ‘, d,’ so le ‘);
Writeln(‘Tich la: ‘,S);
Readln;
End.
Uses crt;
Var a:array[1..100] of integer;
i,n,dem,S: integer;
Begin
Clrscr;
Repeat
Writeln(‘Nhap N =’); Readln(n);
Until n > 0;
For i:=1 to n do
Begin
Writeln(‘Nhap a[‘,i,’] = ‘); Readln(a[i]);
End;
dem:=0; S:=1;
For i:= 1 to n do If a[i] mod 2 <> 0 then
Begin
dem:=dem+1;
S:=a[i]*S;
End;
Writeln(‘Co ‘, dem,’ so le ‘);
Writeln(‘Tich cua S=’,S);
Readln;
End.
*Nhớ tick và chọn làm câu tr/l hay nhất giúp mình nhé! Đảm bảo đúng hết luôn 😀 Thanks so much :333
P/s: Không hiểu chỗ nào, comment giải đáp!