Ôn tập cuối năm

AT

Câu 2 : Viết chương trình nhập vào n số nguyên từ bàn phím, các số cách nhau bởi dấu cách. Hãy in ra màn hình tổng các số chẵn của n số nguyên trên.

NH
26 tháng 4 2023 lúc 23:35

program TongSoChan;

var
  n, i, x, tong: integer;

begin
  write('Nhap so nguyen n: ');
  readln(n);
  
  tong := 0;
  
  for i := 1 to n do
  begin
    read(x);
    if x mod 2 = 0 then
      tong := tong + x;
  end;
  
  writeln('Tong cac so chan la: ', tong);
  readln; 
end.

Bình luận (0)

Các câu hỏi tương tự
PT
Xem chi tiết
HM
Xem chi tiết
PD
Xem chi tiết
TL
Xem chi tiết
NX
Xem chi tiết
SZ
Xem chi tiết
LH
Xem chi tiết
HN
Xem chi tiết
LH
Xem chi tiết