Viết chương trình tính tổng các số chẵn trong dãy số nguyên

Vietjack.me giới thiệu bộ câu hỏi ôn tập Tin học có đáp án được biên soạn bám sát chương trình học giúp bạn ôn luyện và bổ sung kiến thức môn Tin học tốt hơn. Mời các bạn đón xem:

1 326 03/08/2023


Viết chương trình tính tổng các số chẵn trong dãy số nguyên

Đề bài: Viết chương trình tính tổng các số chẵn trong dãy số nguyên được nhập từ bàn phím gồm n phần tử

Lời giải:

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('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(t);

readln;

end.

1 326 03/08/2023


Xem thêm các chương trình khác: