viết chương trình tạo mảng một chiều gồm 40 phần tử có kiểu nguyên rồi đưa ra màn hình các phần tử là số chẵn

0 bình luận về “viết chương trình tạo mảng một chiều gồm 40 phần tử có kiểu nguyên rồi đưa ra màn hình các phần tử là số chẵn”

1. uses crt;

   var  i : integer;

         A : array[1..100] of integer;

   begin

     clrscr;

     for i:=1 to 40 do

       begin

         write(‘A[‘,i,’]=’);

         readln(A[i]);

       end;

     for i:=1 to 40 do if A[i] mod 2=0 then write(A[i],’ ‘);

       readln

   end.

   Bình luận

2. Program Mang;
   Uses crt;
   Var A:array[1..40] of longint;
       i,d: longint;
   Begin
           Clrscr;
           For i:=1 to 40 do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;

           d:=0;
           For i:=1 to 40 do
                   If A[i] mod 2  = 0 then inc(d);
           Write(‘Co ‘,d,’ phan tu la so chan’);
           Readln
   End.

   Bình luận