cho mảng A gồm N phần tử thuộc kiểu nguyên viết chương trình in ra màn hình các giá trị chẵn của mảng A

0 bình luận về “cho mảng A gồm N phần tử thuộc kiểu nguyên viết chương trình in ra màn hình các giá trị chẵn của mảng A”

1. program baitap;

   uses crt;

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

       n,i: integer;

   begin

   clrscr;

   write(‘nhap so phan tu cua mang:’);

   readln(n);

   for i:=1 to n do

   begin

   writeln(‘phan tu thu A’,i,’=’);

   readln(A[i]);

   end;

   for i:=1 to n do

   if (A[i] mod 2=0) then writeln (A[i]);

   readln;

   end.

   Bình luận

2. program so_chan;

   uses crt;

   var A:array[1..1000] of integer;

         n,i,d:integer;

   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 d:=d+1;

               end;

         if d=0 then write(‘Khong co so chan nao’)

         else

               begin

                     write(‘Cac so chan la: ‘);

                     for i:=1 to n do

                           if A[i] mod 2=0 then write(A[i],’ ‘);

               end;

         readln;

   end.

   Bình luận