Nhập vào 1 mảng số nguyên gồm n phần tử. Tính tổng các phần tử chia hết cho 2 trong mảng và in ra màn hình

0 bình luận về “Nhập vào 1 mảng số nguyên gồm n phần tử. Tính tổng các phần tử chia hết cho 2 trong mảng và in ra màn hình”

1. Program     mangmotchieu;

   Uses  crt;

   Var   A: array[1..255] of integer;

           i, n : integer;

   Begin

         clrscr;

           write(‘Nhập số lượng phần tử n là: ‘); Readln(n);

           for i:= 1 to n do write(‘Phần tử thứ ‘, i, ‘ là’); Readln(A[i]);

           write(‘Mảng vừa nhập là ‘);

           for i:= 1 to n do 

           if A[i] mod 2 = 0 then tong:= tong+ A[i];

           write(‘Tổng các phần tử chẵn là ‘, tong);

          readln;

   End.

   Bình luận

2. Program     mangmotchieu;

   Uses  crt;

   Var   A: array[1..255] of integer;

           i, n, tong : integer;

   Begin

         clrscr;

           write(‘Nhập số lượng phần tử n là: ‘); Readln(n);

           for i:= 1 to n do write(‘Phần tử thứ ‘, i, ‘ là ‘); Readln(A[i]);

           write(‘Mảng vừa nhập là ‘);

           tong:=0;

           for i:= 1 to n do 

           if A[i] mod 2 = 0 then tong:= tong+ A[i];

           write(‘Tổng các phần tử chẵn là ‘, tong);

          readln;

   End.

   ———

   CHÚC BẠN HỌC TỐT

   Bình luận