0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
Program NN;
Uses crt;
Var A: array[1..100] of longint;
n,i,d: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Read(A[i]);
If (A[i] mod 2 <> 0) and (A[i] mod 3 = 0) then inc(d);
End;
Write(d);
Readln
End.
Hãy giúp mọi người biết câu trả lời này thế nào?
uses crt;
var i, n, d : integer;
A : array [1 .. 100] of integer;
begin
clrscr;
d := 0;
write('Nhap so n = '); readln(n);
write('Nhap mang ', n ,' so : ');
for i := 1 to n do begin read(A[i]);
if (A[i] mod 2 <> 0) and (A[i] mod 3 = 0)
then d := d + 1; end;
write('Co ', d ,' phan tu le chia het cho 3');
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
0
32
0
Cảm ơn bạn nhiều nhaaaa <3