Nhập vào 1 mảng số nguyên gồm n phần tử. In ra màn hình các phần tử chẵn chia hết cho 4.

0 bình luận về “Nhập vào 1 mảng số nguyên gồm n phần tử. In ra màn hình các phần tử chẵn chia hết cho 4.”

1. program ct;

   uses crt;

   var i,n:integer;

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

   begin

   clrscr;

   write(‘nhap n:=’);readln(n);

   for i:=1 to n do

   begin

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

   end;

   for i:=1 to n do

   if (A[i] mod 2=0) and (A[i] mod 4=0) then writeln(A[i]);

   readln

   end.

   Bình luận

2. program Bai;
   var a:array [1..100] of integer;
         n, i: integer;
   begin
        write(‘Nhap so phan tu co trong mang: ‘); readln(n);
        for i:=1 to n do
            begin
                write(‘Nhap vao phan tu thu A[‘,i,’]: ‘); readln(A[i]);
             end; 
         for i:=1 to n do if a[i] mod 4 = 0 then writeln(a[i]);
         readln
   end. 

   Bình luận