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

0 bình luận về “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”

1. 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.

   Bình luận

2. 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!

   Bình luận