Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
WeSe Trung

Viết chương trình theo yêu cầu sau:

a). Nhập vào mảng số nguyên B. với số lượng phần tử N được nhập từ bàn phím (tối đa 100 phần tử).

b). Tính và in ra màn hình tổng các phần tử có giá trị chia hết cho 5 trong mảng B.

Minh Lệ
20 tháng 4 2020 lúc 22:07

Program hotrotinhoc;

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

i,n,t: integer;

begin

write('Nhap so luong phan tu : '); readln(n);

for i:=1 to n do

begin

write('b[',i,']='); readln(b[i]);

end;

t:=0;

for i:=1 to n do

if b[i] mod 5=0 then t:=t+b[i];

write('Tong cac phan tu co gia tri chia het cho 5 trong mang B la : ',t);

readln

end.


Các câu hỏi tương tự
nguyễn hoàng long
Xem chi tiết
Nguyễn tiên
Xem chi tiết
Nhân
Xem chi tiết
nông thị ngân
Xem chi tiết
Hoàng Phi Kim Huệ
Xem chi tiết
Benny
Xem chi tiết
Đại Văn
Xem chi tiết
Minh Hoạt
Xem chi tiết
Ken Kaneki
Xem chi tiết