program B8; uses crt; var so:array[1..100] of integer; i,n:integer; begin clrscr; writeln('Nhap n:');readln(n); for i:= 1 to n do begin writeln('Nhap so thu ',i,':');readln(so[i]); end; for i:= 1 to n do if (so[i] mod 3=0) or (so[i] mod 5 =0) then writeln('Cac so chia het cho 3 va 5 la:',so[i]); readln; end.
Đáp án: Như phần "Giải thích các bước giải" Giải thích các bước giải:
Uses Crt; Var a:array[1..1000] of integer; i,n:integer; Begin Write(' Nhap do dai day n ='); Readln(n); For i:= 1 to n do Begin Write(' Nhap so thu a[',i,'] = '); Readln(a[i]); End; Write(' Cac so trong day chia het cho ca 3 va 5 la: '); For i:= 1 to n do If (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then Write(a[i]:3); Readln End.
