Đá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:integer; Begin For i:= 1 to 5 do Begin Write(' Nhap so a[',i,'] = '); Readln(a[i]); End; Write(' Cac so co the chia het cho ca 3 va 5 la: '); For i:= 1 to 5 do If (a[i]<0) and (a[i] mod 3 = 0) and (a[i] mod 5 = 0) then Write(a[i]:5); Readln End. *Gửi lại cho bạn ạ!
