Cho dãy số nguyên A1,…,An (2<=n<=250 ) +) Nhập N +) Đếm các số dương chẵn có trong dãy

0 bình luận về “Cho dãy số nguyên A1,…,An (2<=n<=250 ) +) Nhập N +) Đếm các số dương chẵn có trong dãy”

1. uses crt;
   var a:array[2..250]of integer;
   i,n,dem:integer;
   begin
   clrscr;
   write(‘n=’); readln(n);
   if (2<=n) and (n<=250) then
   begin
   for i:=2 to n do
   begin
   write(‘a[‘,i,’]=’); readln(a[i]);
   end;
   dem:=0;
   for i:=2 to n do
   if (a[i]>0) and (a[i] mod 2=0) then inc(dem);
   writeln(‘so cac so duong chan trong day la: ‘,dem);
   end
   else writeln(‘vui long nhap lai n’);
   readln;
   end.

   Bình luận

2. Program FNG;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i,d: 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);
           End;
           Write(‘Co ‘,d,’ so chan’);
           Readln
   End.

   Bình luận