Bài 11: Kiểu mảng

TQ

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

NT
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.

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
LA
Xem chi tiết
NT
Xem chi tiết
NS
Xem chi tiết
HT
Xem chi tiết
DV
Xem chi tiết
AD
Xem chi tiết
QH
Xem chi tiết
KM
Xem chi tiết
KM
Xem chi tiết