Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Kim Dahyun

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]

 

Trần Ái Linh
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.


Các câu hỏi tương tự
Lự Đam
Xem chi tiết
Đại Trương xuân
Xem chi tiết
Nguyễn Diệp ANh MInh
Xem chi tiết
Tram
Xem chi tiết
8/1 Ngọc Hân
Xem chi tiết
Nguyễn Hồng Anh
Xem chi tiết
Vochehoang
Xem chi tiết
Võ Phan Xuân Trung
Xem chi tiết
❤X༙L༙R༙8❤
Xem chi tiết