Bài 9. Làm việc với dãy số

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Trần Đức Duy

Câu 1:Viết chương trình nhập vào 1 dãy N số nguyên. Đưa ra màn hình tổng các số dương chia hết cho 3

Nguyễn Lê Phước Thịnh
12 tháng 4 2021 lúc 20:14

Câu 1:

Uses crt;

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

I,n,t:integer;

Begin

Clrscr;

Write('nhap n='); readln(n);

For i:=1 to n do

Begin

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

End;

T:=0;

For i:=1 to n do

If (a[i]>0) and (a[i] mod 3=0) then t:=t+a[i];

Writeln(t);

Readln;

End.

Bùi Anh Tuấn
12 tháng 4 2021 lúc 20:17


Các câu hỏi tương tự
emhocngulamgiupemvoi
Xem chi tiết
trương lại văn
Xem chi tiết
Hà Trần
Xem chi tiết
Hùng Cường Nguyễn
Xem chi tiết
Hùng Anh Nguyễn Đăng
Xem chi tiết
Uchiha Obito
Xem chi tiết
Jeri James
Xem chi tiết
Học .com
Xem chi tiết
Bảo Trâm
Xem chi tiết