Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Tú Quyên

Giúp mình với ạ !

viet chuong trinh nhap mang a bat ky tu ban phim( n nho hon hoac bang 100) tinh va xuat ra mang hinh cac phan tu le hoac chan cua may vua nhap

Nguyễn Lê Phước Thịnh
6 tháng 3 2020 lúc 20:52

uses crt;

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

i,n,t:integer;

begin

clrscr;

write('n='); readln(n);

if (n>0) and (n<=100) then

begin

t:=0;

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

if (a[i] mod 2=0) or (a[i] mod 2=1) then t:=t+a[i];

end;

writeln('tong cac phan tu chan hoac le trong day la: ',t);

end

else writeln('vui long nhap lai');

readln;

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
lan anh
Xem chi tiết
nguyen trinh
Xem chi tiết
Nguyễn Thái Sơn
Xem chi tiết
huỳnh thị kim thúy
Xem chi tiết
Đỗ Lan Phương Vũ
Xem chi tiết
Anh Lê duy
Xem chi tiết
Quỳnh Anh Hồ
Xem chi tiết
Khánh Mỹ
Xem chi tiết
Khánh Mỹ
Xem chi tiết