Quảng cáo
1 câu trả lời 471
program TienPhucKhaiVJ;
uses crt;
var n,i, count :integer;
a:array[1..100] of longint;
begin
clrscr;
write('nhap n:');
readln(n);
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
count :=0;
for i:=1 to n do
if (a[i] mod 5 <> 0) then
count:= count+1;
writeln('So cac so khong chia het cho 5 la: ',count);
readln
end.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55494 -
Đã trả lời bởi chuyên gia
31427 -
Đã trả lời bởi chuyên gia
29968
Gửi báo cáo thành công!
