Mn giúp em bài này với ạ E cảm ơn Viết chương trình nhập vào mảng một chiều A gồm n số nguyên (n <=100). Đếm và đưa ra màn hình số lượng các phần tử d

0 bình luận về “Mn giúp em bài này với ạ E cảm ơn Viết chương trình nhập vào mảng một chiều A gồm n số nguyên (n <=100). Đếm và đưa ra màn hình số lượng các phần tử d”

1. program BT;

   uses crt;

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

         n,i,d: integer;

   Begin

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

            while n>100 do

            begin

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

            end;

            for i:=1 to n do

            begin

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

            end;

            for i:=1 to n do

            if (A[i]>0) and (A[i] mod 2=0) then d:=d+1;

            write(‘Co: ‘,d,’ phan tu duong co gia tri chan’);

            readln

   End.

   …

   Câu hỏi phụ:

   Hình

   đã test

   

   Bình luận