Viết chương trình nhập vào dãy số A gồm N số nguyên. Đưa ra màn hình những phần tử chia hết cho 2 của dãy số

0 bình luận về “Viết chương trình nhập vào dãy số A gồm N số nguyên. Đưa ra màn hình những phần tử chia hết cho 2 của dãy số”

1. Program    nhung_phan_tu_chia_het_cho_2;

   user   crt;

   var   a:array[1..100] of longint;

           n,i : longint;

   Begin

   clrscr;

   read(n);

   for i:=1 to n do read (a[i]);

   for i:=1 to n do

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

   readln;

   end.

   CHÚC BẠN HỌC TỐT!!!

   Bình luận

2. var a:array[1..100]of longint;

         n,i:longint;

   begin

   read(n);

   for i:=1 to n do read(a[i]);

   for i:=1 to n do

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

   readln;

   end.

   Bình luận