viết chương trình nhấp vào 1 mảng A gồm n phần tử thuộc kiểu số nguyên. In ra màn hình các số chẵn.

0 bình luận về “viết chương trình nhấp vào 1 mảng A gồm n phần tử thuộc kiểu số nguyên. In ra màn hình các số chẵn.”

1. uses crt; 

   var

   A:array[1..10000] of longint;

   i,n:integer;

   begin

   write(‘Nhap n’); readln(n);

   for i:=1 to n do

   begin

   write(‘A[‘,i,’]’); readln(A[i]);

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

   end;

   readln;

   end.

   Bình luận

2. program mang_chan;

   uses crt;

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

         n,i: integer;

   Begin

            clrscr;

            write(‘Nhap so phan tu: ‘); readln(n);

            for i:=1 ton do

            begin

                     write(‘A[‘,i,’]=’); readln(A[i]);

            end;

            write(‘Cac so chan trong mang: ‘);

            for i:=1 to n do

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

            readln

   End.

   Bình luận