Cho dãy gồm n số nguyên a1…an tính tổng các số chắn o dãy . ( N lớn hơn hoặc bằng < 400;0
Bởi

Cho dãy gồm n số nguyên a1…an tính tổng các số chắn o dãy . ( N lớn hơn hoặc bằng < 400;0 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " Cho dãy gồm n số nguyên a1...an tính tổng các số chắn o dãy . ( N lớn hơn hoặc bằng < 400;0

0 bình luận về “Cho dãy gồm n số nguyên a1…an tính tổng các số chắn o dãy . ( N lớn hơn hoặc bằng < 400;0 <a, lơn hơn hoặc bằng 255)”

  1. Program NN;
    Uses crt;
    Var A: array[1..10000] of longint;
        n,i,d: longint;
    Begin
            Clrscr;
            Write(‘Nhap n: ‘); Readln(n);
            d:=0;
            For i:=1 to n do
            Begin
                    Read(A[i]);
                    If A[i] mod 2 = 0 then d:=d+A[i];
            End;
            Write(d);
            Readln
    End.

    Bình luận

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