Question

Giải giúp em với ạ

Nhập vào 1 mảng gồm 50 phần tử thuộc kiểu nguyên.đếm số lượng số chẵn trong dãy

Answer 1

var

a:array[1..50] of integerl;

i,d:integer;

begin

write('nhap so luong pt mang:');readln(n);

for i:=1 to n do

if a[i] mod 2=0 then d:=d+1;

write('so luong so chan trong mang la:',d);

readln

end.

Answer 2

uses crt;

var a:array[1..50] of integerl;

i,d:integer;

begin

clrscr;

write('nhap so luong pt mang:');readln(n);

d:=0;

for i:=1 to n do

if a[i] mod 2=0 then d:=d+1;

write('so luong so chan trong mang la:',d);

readln;

end.