Nhập mảng 1 chiều các số nguyên (N<=50) Đưa ra màn hình vị trí các số là bội của 3
1 câu trả lời
Program Boi;
Uses crt;
Var A:array[1..50] of longint;
i,n: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
For i:=1 to n do
Begin
Write('A[',i,'] = '); Readln(A[i]);
End;
For i:=1 to n do
If A[i] mod 3 = 0 then Write(A[i]:5);
Readln
End.
