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 ạ ????

0 bình luận về “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. 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.

   Bình luận