Question

Viết chương trình cho phép nhập dãy n số nguyên, em hãy: a/ Cho biết trong dãy số vừa nhập có bao nhiêu số chẳn? b/ Tính trung bình cộng các phần tử chẳn? c/ In các phần tử trong dãy ra màn hình theo chiều dọc? Giúp với ạ

Answer 1

Program HOC24;

var d,i,n: integer;

t: real;

begin

write('Nhap n: '); readln(n);

for i:=1 to n do 

begin

write('Nhap so thu ',i,': '); readln(a[i]);

end;

d:=0; t:=0;

for i:=1 to n do

if a[i] mod 2=0 then 

begin

d:=d+1;

t:=t+a[i];

end;

t:=t/d;

writeln('Co ',d,' so chan trong mang');

writeln('Trung binh cong cac phan tu chan la: ',t:2:5);

write('Cac phan tu trong day theo chieu doc: ');

for i:=1 to n do writeln(a[i]);

readln

end.