Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Nguyễn Hữu Hoàng Anh

Viết chương trình nhập vào mảng số nguyên gồm n phần tử và in tổng các giá trị phần tử là số chẳn, Các phần tử là số lẻ, các phần tử chia hết cho 2 và 3.

Nguyễn Lê Phước Thịnh
5 tháng 4 2022 lúc 22:13

uses crt;

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

i,n,t1,t2,t3:integer;

begin

clrscr;

readln(n);

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

t1:=0;

t2:=0;

t3:=0;

for i:=1 to n do 

begin

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

else t2:=t2+a[i];

if (a[i] mod 2=0) and (a[i] mod 3=0) then t3:=t3+a[i];

end;

writeln(t1);

writeln(t2);

writeln(t3);

readln;

end.


Các câu hỏi tương tự
Chouu11
Xem chi tiết
Kinen
Xem chi tiết
Đào Đăng Khoa
Xem chi tiết
Nguyễn Tạ Khánh Ngọc
Xem chi tiết
Nguyên Sử Thục
Xem chi tiết
kimcherry
Xem chi tiết
Nguyễn Cảnh Hùng
Xem chi tiết
dung nguyen
Xem chi tiết
21-ALAN- VO DONG QUAN FS...
Xem chi tiết