Cho dãy A gồm N số nguyên dương,(N<=100, Ai<=10000|i∈[1..n]). Viết chương trình nhập dãy A và đếm số lượng các số là bội của 3 trong dãy. Hãy hoàn thiện bằng cách điền vào vị trí các chỗ được đánh số từ 9 đến 16
Program dem_boi;
Var A : array[1..100] of (9);
N, i : byte;
Sl: (10);
Begin
Write(‘Nhap so luong phan tu cua day:’);
Readln(11);
For i:=1 to N do
Begin
Write(‘A[’ , i , ‘]=’);
Readln(12);
End;
(13);
For i:=(14) to N do
If (15) then Sl:=Sl+(16);
Writeln(‘So luong phan tu la boi cua 3 la:’, Sl);
Readln
End.
Loga
Sinh Học lớp 12
