Tính tổng các số lẻ trong dãy số gồm N phần tử $a_{1}$;…$a_{N}$ (N ≤100)

0 bình luận về “Tính tổng các số lẻ trong dãy số gồm N phần tử $a_{1}$;…$a_{N}$ (N ≤100)”

1. program tinh_tong_le;

   uses crt;

   var A: array[1..100] of integer;

        n,i:b yte;

        t: integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);   readln(n);

          for i:=1 to n do

                 begin

                        write(‘A[‘,i,’]= ‘);   readln(A[i]);

                 end;

          t:=0;

          for i:=1 to n do 

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

          write(‘Tong cac phan tu le la: ‘,t);

          readln

   end.

   Bình luận

2. program tinh_tongle;

   uses crt;

   var A:array[1..100] of integer;

        n,i:byte;

        t:integer;

   begin

          clrscr;

          write(‘Nhap n: ‘);   readln(n);

          for i:=1 to n do

                 begin

                        write(‘A[‘,i,’]= ‘);   readln(A[i]);

                 end;

          t:=0;

          for i:=1 to n do 

                 if A[i] mod 2<>0 then t:=t+A[i];

          write(‘Tong cac phan tu le la: ‘,t);

          readln;

   end.

   Còn nếu bạn muốn tính tổng số chẵn thì bạn đổi if A[i] mod 2<>0 thành if A[i] mod 2=0 nha.

   Bình luận