Viết chương trình a) nhập từ bàn phím các số nguyên cho mảng a gồm 10 phần tử b) điểm trong mảng a có bao nhiêu số chia hết cho 5
2 câu trả lời
uses crt;
var a:array[1..10]of integer;
i,dem:integer;
begin
clrscr;
dem:=0;
for i:=1 to 10 do
begin
write('a[',i,']='); readln(a[i]);
if a[i] mod 5=0 then inc(dem);
end;
writeln('so phan tu chia het cho 5 trong day la: ',dem);
readln;
end.
Program Hotboy;
Uses crt;
Var A : array[1..10] of integer;
i,n,Ninh : longint;
Begin
Clrscr ;
Ninh:=0;
For i:= 1 to 10 do
Begin
Write('A[',i,']=');
Readln(A[i]);
End;
For i:=1 to 10 do
If A[i] mod 5 =0 then Ninh:= Ninh+1;
Write('so phan tu chia het cho 5 trong mang la: ',Ninh);
Readln
End.
