Viết chương trình tính tổng các số chia hết cho 2

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 537 03/08/2023


Viết chương trình tính tổng các số chia hết cho 2

Đề bài: Viết chương trình tính tổng các số chia hết cho 2 của một mảng số được nhập từ bàn phím.

Lời giải:

uses crt;

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

n,i,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];

writeln('Tong cac so chan la: ',t);

readln;

end.

1 537 03/08/2023


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