viết chương trình nhập từ bàn phím 1 mảng 1 chiều N (N<=500). In ra màn hình các số chẵn trong mảng

0 bình luận về “viết chương trình nhập từ bàn phím 1 mảng 1 chiều N (N<=500). In ra màn hình các số chẵn trong mảng”

1. uses crt;
   var a:array[1..500] of longint;
       n,i:integer;
   begin
       clrscr;
       write(‘Nhap so luong phan tu (n<=500): ‘); readln(n);
       for i:=1 to n do
           begin
               write(‘Nhap phan tu thu ‘,i,’: ‘); readln(a[i]);
           end;
       write(‘Cac so chan: ‘);
       for i:=1 to n do if a[i] mod 2=0 then write(a[i],’ ‘);
       readln;
   end.

   Bình luận

2. uses crt;

   var a: aray[1..1000] of longint;

         i,n: longint;

   begin

   clrscr;

   repeat readln (n);

   until n<=500;

   for i:=1 to n do

   begin

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

   readln(a[i]);

   end;

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

   readln

   end.

   Bình luận