KD

Viết chương trình nhập một dãy số sau đó kiểm tra xem có bao nhiêu số nguyên thuộc đoan [1;10]

 

TL
22 tháng 7 2021 lúc 10:26

program im_14424;
uses crt;
var A:array[1..10] of integer;
i,n,biendem: integer;
begin
clrscr;
biendem:=0;
for i:=1 to 10 do
begin
write('Nhap vao',A[i],': ');
readln(A[i]);
if (A[i] mod 2 = 0) or (A[i] mod 2 = 1) then biendem:=biendem+1;
end;
write('So cac so nguyen la: ', biendem); 
readln
end.

Bình luận (0)

Các câu hỏi tương tự
LD
Xem chi tiết
DX
Xem chi tiết
NM
Xem chi tiết
H24
Xem chi tiết
8H
Xem chi tiết
NA
Xem chi tiết
H24
Xem chi tiết
VT
Xem chi tiết
H24
Xem chi tiết