Viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2, …, an. In ra màn hình tổng các số chẵn có trong dãy số.

Question

Viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2, ..., an. In ra màn hình tổng các số chẵn có trong dãy số.

halan · Answer

Đ&acirc;y l&agrave; đ&aacute;p an nha bạn!

minhguyrttuanh · Answer

program ct;

uses crt;

var i,n,S:integer;

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

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

S:=0;

for i:=1 to n do

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

writeln(‘tong la:’,S);

readln

end.

0 bình luận về “Viết chương trình nhập từ bàn phím số nguyên dương n và dãy số từ a1, a2, …, an. In ra màn hình tổng các số chẵn có trong dãy số.”