Cho mảng B một chiều gồm N phần tử. Viết chương trình nhập giá trị vào cho mảng và in ra màn hình các phần tử có giá trị là lẽ và không phải là bội của 3 có trong mang. Nếu không có thì in ra màn hình “khong co phan tu nao khoa man”.
Cho mảng B một chiều gồm N phần tử. Viết chương trình nhập giá trị vào cho mảng và in ra màn hình các phần tử có giá trị là lẽ và không phải là bội của 3 có trong mang. Nếu không có thì in ra màn hình “khong co phan tu nao khoa man”.
uses crt;
var B:array[1..1000] of integer;
N,i,dem:integer;
begin
write(‘Nhap N: ‘); readln(N);
for i:=1 to N do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(B[i]);
if (B[i] mod 2 = 1) and (B[i] mod 3 <> 0) then
begin
writeln(B[i],’ la phan tu thoa man’);
inc(dem);
end;
end;
if dem=0 then write(‘Khong co phan tu nao thoa man’);
readln
end.