nhập dãy số nguyên n phần tử n<=120 .cho biết có bao nhiêu số hạng ko chia hết cho 3
1 câu trả lời
program khong_chia_het3;
uses crt;
var A:array[1..120] of integer;
n,i,d:byte;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
if A[i] mod 3<>0 then d:=d+1;
end;
write('Co ',d,' so khong chia het cho 3');
readln;
end.
