Đếm ptử chẵn, lẻ và xác định dãy cấp số nhân.

[lehuan_138]

viết chưong trình nhập vào một dãy số nguyên gồm n phần tử ,giá trị mỗi phần tử không lớn hơn 100.
a.Đếm xem trong dãy vừa nhập có bao nhiêu số chẵn,bao nhiêu số lẻ,bao nhiêu số chia hết cho n

b.kiểm tra xem dãy đó có phải là một cấp số nhân hay không ?

[betterlife]

Mình đang rất cần gấp bài này
Mọi người cố gắng giúp mình với nhanh lên

[mphana]

[

viết chưong trình nhập vào một dãy số nguuyeengoomf n phần tử ,giá trị mỗi phần tử không lớn hơn 100.
a.Đếm xem trong dãy vừa nhập có bao nhiêu số chẵn,bao nhiêu số lẻ,bao nhiêu số chia hết cho n

b.kiểm tra xem dãy đó có phải là một cấp số nhân hay không ?

Program HSG_diendantinhoc;

        Uses Crt;

        Var a : Array[1..100] Of Integer;
            n, i, cong_sai : Integer;
            dem_chan, dem_le, dem_chia_het_n : Byte;
            kiem_tra : Boolean;

BEGIN
        ClrScr;
        Write('+ Nhap tong so phan tu: ');
        Readln(n);

        {=== Nhap du lieu ===}
        For i := 1 To n Do
        Repeat
                Write('  - A[',i,']: ');
                Readln(A[i]);
        Until (A[i] >= 0) And (A[i] <= 100);

        {=== Cau a ===}
        For i := 1 To n Do
        Begin
                If i mod 2 = 0 Then Inc(dem_chan);
                If i mod n = 0 Then Inc(dem_chia_het_n);
        End;
        dem_le := n - dem_chan;

        {=== Cau b ===}
        kiem_tra := True;
        cong_sai := a[2] - a[1];
        For i := 2 To n Do
                If a[i] - a[i - 1] <> cong_sai Then
                Begin
                        kiem_tra := False;
                        Break;
                End;

        {=== Xuat du lieu ra man hinh ===}
        ClrScr;
        Writeln('+ Co ',dem_chan,' phan tu la so chan.');
        Writeln('+ Co ',dem_le,' phan tu la so le.');
        Writeln('+ Co ',dem_chia_het_n,' phan tu chia het cho ',n,'.');
        If kiem_tra = True Then Writeln('Day vua nhap la CSC voi CS la ',cong_sai,'.')
        Else Writeln('Day vua nhap khong phai la CSC');

        {=== Dung man hinh de xem ===}
        Readln
END.

Chúc em học tốt!

[huongabc1]

Em cảm ơn anh nhé !
Em còn kém quá.hjhj.

[duythangtmv]

À, mói đọc lại cái đề thì thấy là Cấp số nhân chứ không phải là Cấp số cộng.
Vì thế nên thay đổi tí.
+ Cong_sai => Cong_boi.
+ Cong_boi := a[2]/a[1];
+ ... a/a[i-1] <> cong_boi ...
Và sửa lại một số chỗ ghi là CSC thành CSN, CS thành CB.

[IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG] Sửa lại em nhá. Hihi, anh cố tình á. [IMG]data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAEAAAABAQMAAAA l21bKAAAAA1BMVEXh5PJm+yKVAAAAAXRSTlMAQObYZgAAAApJR EFUCNdjYAAAAAIAAeIhvDMAAAAASUVORK5CYII=[/IMG]