Bài 11: Kiểu mảng

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

Giúp em vs ạ

Nguyễn Lê Phước Thịnh
23 tháng 3 2021 lúc 20:05

Câu 2: 

uses crt;

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

i,n,t1,t2:integer;

begin

clrscr;

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

for i:=1 to n do 

begin

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

end;

t1:=0;

t2:=0;

for i:=1 to n do 

begin

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

else t2:=t2+a[i];

end;

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

writeln('Tong cac so le la: ',t2);

readln;

end.


Các câu hỏi tương tự
Việt Nguyễn
Xem chi tiết
Yeo Bang Yeong
Xem chi tiết
Quỳnh Anh Hồ
Xem chi tiết
Thanh Sơn
Xem chi tiết
Tường Vy
Xem chi tiết
Nguyễn Thu Hà
Xem chi tiết
Nguyễn Thu Hà
Xem chi tiết
khai nguyen
Xem chi tiết