viết chương trình nhập vào dãy số nguyên N phần tử .Có bao nhiêu số chẵn trong dãy? MÌNH CẦN RẤT GẤP Ạ MONG MỌI NGƯỜI GIÚP!!!

0 bình luận về “viết chương trình nhập vào dãy số nguyên N phần tử .Có bao nhiêu số chẵn trong dãy? MÌNH CẦN RẤT GẤP Ạ MONG MỌI NGƯỜI GIÚP!!!”

1. uses crt;

   var i,n,dem:integer;

         a:array[1..1000] of integer;

   begin

   clrscr;

   dem:=0;

   write(‘n=’);readln(n);

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]=’);readln(a[i]);

   end;

   for i:=1 to n do 

   begin

   if a[i] mod 2 = 0 then

   dem:=dem+1;

   end;

   writeln(‘co’,n,’số chẵn trong dãy’);

   readln;

   end.

   Bình luận

2. uses crt;
   var n,i,d : integer;
   a : array[1..100] of longint;
   begin  d:=0;
   write(‘Nhap n :’); readln(n);
   for i:=1 to n do begin
    write(‘Nhap phan tu ‘,i,’ la :’);
    readln(a[i]); end;
   for i:=1 to n do if a[i] mod 2 = 0 then d:=d+1;
   write(‘So phan tu chan :’,d);
   readln
   end.

   Bình luận