Bài 11: Kiểu mảng

Hồng Gấm

viết chương trình nhập một số nguyên dương n và dãy số nguyên. Hãy cho biết dãy số nguyên dương có bao nhiêu giá trị là bội của 5

Nguyễn Lê Phước Thịnh
15 tháng 6 2020 lúc 22:27

uses crt;

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

n,i,dem:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do

if a[i] mod 5=0 then inc(dem);

writeln('So boi cua 5 la: ',dem);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
fyujg
Xem chi tiết
Dương Thành Long
Xem chi tiết
Nguyen Nhi
Xem chi tiết
Nguyễn Lê
Xem chi tiết
Phong Vũ
Xem chi tiết
Sarah Lilia
Xem chi tiết
Nguyễn Phú Trọng
Xem chi tiết
Oanh Nguyễn
Xem chi tiết
Anh Thư
Xem chi tiết
Leoumax
Xem chi tiết