Viết chương trình đếm số lượng phần tử chẵn trong mảng 1 chiều
2 câu trả lời
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
clrscr;
write('n='); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
{-------------------------------------------------------------}
dem:=0;
for i:=1 to n do
if a[i] mod 2=0 then inc(dem);
writeln('so phan tu chan trong day la: ',dem);
readln;
end.
Program Hotboy;
Uses crt;
Var A : array[1..100] of integer;
i,n,chan : longint;
Begin
Clrscr ;
Chan:=0;
Write('Nhap n so luong phan tu'); 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 chan:= chan+1;
Write('so phan tu chan trong mang la: ',chan);
Readln
End.
Câu hỏi trong lớp
Xem thêm
