Cho N và dãy số a1…aN, hãy cho biết có bao nhiêu số hạng trong dãy có giá trị bằng 0

Cho N và dãy số a1…aN, hãy cho biết có bao nhiêu số hạng trong dãy có giá trị bằng 0

0 bình luận về “Cho N và dãy số a1…aN, hãy cho biết có bao nhiêu số hạng trong dãy có giá trị bằng 0”

  1. Program Hotboy ;

    Uses crt;

    Var a:array[1..100] of integer;

    D,i,n: longint;

    Begin

    Clrscr;

    D:=0;

    Write(‘nhap n’);

    Readln(n);

    For i:=1 to n do

    Write(”A[‘,i,’]’);

    Readln(A[i]);

    For i:=1 to n do

    If A[i]=0 then inc(D);

    Writeln(‘co so so la’,D);

    Readln

    End.

    Bình luận

Viết một bình luận