cho dãy số nguyên có 100 phần tử. Hãy a. khai báo biến mảng của dãy số b. In ra các phần tử có giá trị chẳn trong dãy

0 bình luận về “cho dãy số nguyên có 100 phần tử. Hãy a. khai báo biến mảng của dãy số b. In ra các phần tử có giá trị chẳn trong dãy”

1. a) khai báo:

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

         i:byte;

   b) Chương trình

   program so_chan;

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

         n,i:integer;

   begin

          clrscr;

          for i:=1 to 100 do

                 begin

                        write(‘Nhap so thu ‘,i,’: ‘);   readln(A[i]);

                 end;

          write(‘Cac phan tu co gia tri chan la: ‘);

          for i:=1 to 100 do

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

          readln;

   end.

   Bình luận