Bài 11: Kiểu mảng

Na Lê
nguyễn an phát
24 tháng 3 2021 lúc 10:50

program bai_tap;

uses crt;

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

m,i,dem:integer;

begin

clrscr;

write('nhap so m:');readln(m);

while m>100 do writeln('ban hay nhap lai:');

dem:=0;

for i:=1 to m do

begin

write('nhap phan tu c[',i,']:');readln(c[i]);

end;

for i:=1 to m do 

if (c[i] mod 2=0)and(c[i] mod 5=0) then dem:=dem+1;

write(dem);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
Phạm ngọc anh
Xem chi tiết
Na Lê
Xem chi tiết
Nhược Doanh EXO-L
Xem chi tiết
dffhb
Xem chi tiết
nguyễn an phát
Xem chi tiết
Quân Nguyễn
Xem chi tiết
Dung Nguyễn
Xem chi tiết
Bich Ngoc
Xem chi tiết
Hoàng Thành
Xem chi tiết
Ken Kaneki
Xem chi tiết