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 ?
2 câu trả lời
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.
*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
Câu hỏi trong lớp
Xem thêm
