Giúp mình vs ạ mình cần gấp để nộp Viết chương trình tìm số chẵn trong một dãy số gồm N số, với N được nhập từ bàn phím( có thể dùng chia lấy phần ng

0 bình luận về “Giúp mình vs ạ mình cần gấp để nộp Viết chương trình tìm số chẵn trong một dãy số gồm N số, với N được nhập từ bàn phím( có thể dùng chia lấy phần ng”

1. Program BTT;
   Uses crt;
   Var A: array[1..1000] of longint;
       n,i: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           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

2. uses crt;

   var N,i:integer;

         a:array[1..100] of integer;

   begin

   clrscr;

   readln(N);

   for i:=1 to N do readln(a[i]);

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

   readln

   end.

   Bình luận