1 . CHO mảng B một chiều gồm N (N>250) số nguyên . Viết chương trình nhập giá trị vào mảng và in ra màn hình các phần tử có giá trị là Chẵn của mảng g

0 bình luận về “1 . CHO mảng B một chiều gồm N (N>250) số nguyên . Viết chương trình nhập giá trị vào mảng và in ra màn hình các phần tử có giá trị là Chẵn của mảng g”

1. uses crt;
   var A:array[250..1000] of integer;
       N,i:integer;
   begin
      clrscr;
      write(‘Nhap N: ‘); readln(N);
      for i:=1 to N do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i])
      end;
      write(‘Cac so chan la: ‘);
      for i:=1 to N do
      if A[i] mod 2 = 0 then write(A[i]:2);
      readln
   end.
      

   Bình luận