Giúp em với ạ: Viết chương trình nhập vào dãy A có N số nguyên. Đưa ra màn hình các chỉ số có phần tử chia hết cho 3 và cho 5.
1 câu trả lời
program az;
uses Crt;
var a : array [1..100] of integer;
i,n : integer;
begin
clrscr;
Write('So phan tu cua mang : '); readln(n);
For i:=1 to n do
begin
Write(' nhap phan tu thu a[',i,'] la : '); readln(a[i]);
end;
Write('Cac phan tu chia het cho 3 : ');
For i:=1 to n do If (a[i] mod 3 = 0) then Write(a[i],',');
Writeln;
Write('Cac phan tu chia het cho 5 :');
For i:=1 to n do If (a[i] mod 5 = 0) then Write(a[i],',');
readln
end.
