Cấu trúc rẽ nhánh và lặp

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

Viết chương trình nhập vào dãy A gồm N số nguyên (N<=50).In ra màn hình tổng các số chia hết cho 3.

Trần Diệu Linh
9 tháng 6 2020 lúc 16:23

Var i,n: Integer;

S: Longint;

a:array[1..50] of Integer;

Begin

Write('Nhap so cac so la N='); Read(N);

Write('Nhap ',N,' so do');

For i:=1 to N do

begin

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

Read(a[i]);

end;

S:=0;

For i:=1 to N do

If a[i] mod 3=0 then S:=S+a[i];

Writeln('Tong cac so chia het cho 3 la,S=',S);

Readln;

End.

----------------------------

p/s: Mình mời học lớp 8 nên mình viết theo cách này nên áp dụng vào lớp 11 thì không biết có đúng không ạ.


Các câu hỏi tương tự
Vũ Ngọc Lan
Xem chi tiết
Hà Văn Tài
Xem chi tiết
phạm hương trà
Xem chi tiết
Machunsu
Xem chi tiết
chương nguyễn
Xem chi tiết
Light Stars
Xem chi tiết
phươngplayergamer
Xem chi tiết
Hạ Nhật
Xem chi tiết
Huyền Nguyễn
Xem chi tiết