Phạm Đức Duy
Hỏi từ APP VIETJACK
Cho dãy A gồm N số nguyên dương, đến số phần tử có giá trị chẵn, số phần tử có giá trị lẻ
Quảng cáo
1 câu trả lời 352
program maxxx;
Uses Crt;
Type Mang = ARRAY[1..50] Of Integer;
Var A:Mang;
N,i,demle, demchan:Integer;
Begin
clrscr;
Write('Nhap N='); Readln(N);
For i:=1 To N Do
Begin
Write('A[',i,']='); Readln(A[i]);
End;
for i := 1 to n do
if (a[i] mod 2 = 0) then
demchan := demchan +1
else
demle := demle +1;
Writeln('So phan tu le :', demle);
Writeln('So phan tu chan :', demchan);
Readln;
End.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
55463 -
Đã trả lời bởi chuyên gia
31395 -
Đã trả lời bởi chuyên gia
29941
Gửi báo cáo thành công!
