Viết chương trình khởi tạo mảng gồm n phần tử nhập từ bàn phím, hiển thị ra màn hình những số vừa chia hết cho 2, vừa chia hết cho 3 trong mảng.
1 câu trả lời
uses crt;
var a: array[1..100] of integer;
i,n,d: integer;
begin
clrscr;
write ('nhap n: '); readln (n);
for i:=1 to n do
begin
write ('nhap phan tu thu ',i,': '); readln (a[i]);
end;
write ('cac phan tu trong mang vua chia het cho 2, vua chia het cho 3 la: ');
for i:=1 to n do if (a[i] mod 2=0) and (a[i] mod 3=0) then begin write (a[i]:3); d:=d+1; end;
if d=0 then write ('Khong Co');
readln;
end.
Câu hỏi trong lớp
Xem thêm
