Viết thuật toán nhập vào số nguyên N và dãy A1,A2 -AN tính và đưa ra tổng các số chẵn trong dãy ?

0 bình luận về “Viết thuật toán nhập vào số nguyên N và dãy A1,A2 -AN tính và đưa ra tổng các số chẵn trong dãy ?”

1. uses crt;

   var a:array[1..100] of longint;

   i,n,tong:longint;

   begin

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

   for i:=1 to n do 

   begin

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

   end;

   tong:=0;

   for i:=1 to n do if a[i] mod 2=0 then tong:=tong+a[i];

   write(‘tong cac so chan trong day la: ‘,tong);

   readln

   end.

   Ctr chưa test bạn test lại nhaa.

   Bình luận

2. *Thuật toán

   Bước `1`: nhập số nguyên `N` từ bàn phím

   Bước `2`: lần lượt nhập `N` số trong dãy 

   Bước `3` : Cho biến `i` chạy từ `1-> n` nếu chia hết cho 2 thì `S<- S+A[i]`

   Bước `4`: In ra kết quả và kết thúc thuật toán 

   Bình luận