Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Quang Tuấn

nhập mã gồm n số nguyên từ bàn phím xuất mãng vừa nhập ,tính tổng các ptu là số chẵn có trong mãng

Nguyễn Lê Phước Thịnh
12 tháng 5 2022 lúc 20:15

uses crt;

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

i,n,t:integer;

begin

clrscr;

readln(n);

for i:=1 to n do readln(a[i]);

for i:=1 to n do write(a[i]:4);

writeln;

t:=0;

for i:=1 to n do 

  if a[i] mod 2=0 then t:=t+a[i];

writeln(t);

readln;

end.


Các câu hỏi tương tự
Thảo
Xem chi tiết
Mỹ Phượng
Xem chi tiết
Sơn Trần
Xem chi tiết
Khánh Linh
Xem chi tiết
nguyễn hoàng long
Xem chi tiết
Thu hằng
Xem chi tiết
VŨ MINH HOÀNG
Xem chi tiết
Khánh Linh
Xem chi tiết
Ngoc Huyen
Xem chi tiết