Tin học 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 21/07/2021 By Clara 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ương có giá trị chẵn trong dãy
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 Trả lời