Tạo mảng A gồm n(n<= 100) số nguyên, mỗi số có trị tuyệt đối không vượt quá 300.Hãy đếm số phần tử có giá trị dương và chẵn. Ai giúp em nhanh với ạ ?
1 câu trả lời
Program Hotboy ;
Var a:array[1..100] of longint;
Duong,chan,n,i: integer ;
Begin
Clrscr ;
Chan:=0; duong:=0;
Writeln('nhap so phan tu');
Readln(n);
For i:=1 to n do
Repeat
Write('A[',i,']');
Readln(A[i]);
Until abs(A[i])<= 300 ;
For i:=1 to n do
Begin
If A[i] mod 2 =0 then inc(chan);
If A[i] > 0 then inc(duong);
End;
Writeln('so so duong la',duong,' so so chan la',chan);
Readln
End.
Câu hỏi trong lớp
Xem thêm
