bài 1 : dãy a gồm 50 phần tử là các số nguyên viết chương trình tính tổng các sỗ chẵn của a bài 2 : dãy a gồm n phần tử là các số nguyên viết chương t

B1:

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

B2:

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