Quỳnh Anh Đào
Hỏi từ APP VIETJACK
Cho một dãy số từ một đến một số bất kì lập một phương trình sao cho đếm được bao nhiêu số lẻ và bao nhiêu số chẵn
Quảng cáo
1 câu trả lời 336
Program BTT;
Uses crt;
Var A: array[1..500] of longint;
n,i,d,d2: longint;
Begin
Clrscr;
Write('Nhap n: '); Readln(n);
d:=0;
For i:=1 to n do
Begin
Write('A[',i,'] = ');
Readln(A[i]);
If A[i] mod 2 = 0 then inc(d);
If A[i] mod 2 = 1 then inc(d2);
End;
Writeln('Co ',d,' so chan');
Writeln('Co ',d2,' so le');
Readln
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
45458 -
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
34879 -
Đã trả lời bởi chuyên gia
30691 -
Hỏi từ APP VIETJACK28306
-
Hỏi từ APP VIETJACK
Đã trả lời bởi chuyên gia
22476
Gửi báo cáo thành công!
