nhập chương trình từ bàn phím số nguyên dương n (n<=100) và dãy a gồm n có nguyên a1 a2 an tìm và in ra màn hình các số thứ tự chia hết cho 3
2 câu trả lời
uses crt;
var i,n:longint; a:array[1..1000000]of 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],' ');
readln
end.
uses crt;
var a:array[1..100]of longint;
n,i:longint;
begin
clrscr;
readln(n);
for i:=1 to n do read(a[i]);
for i:=1 to n do
if i mod 3=0 then write(a[i],' ');
readln;
readln;
end.
