Question

viết chương trình nhập từu bàn phím số nguyên dương n và dãy A gồm n số nguyên A1, A2,...,An sau đó in ra màn hình trung bình cộng các phần tử chẵn trong dãy A

Answer 1

uses crt;

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

n,i,dem,tb:integer;

begin

clrscr;

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

for i:=1 to n do

begin

write('A[',i,']='); readln(a[i]);

end;

tb:=0;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin

tb:=tb+a[i];

dem:=dem+1;

end;

writeln('Trung binh cong cac phan tu chan la: ',tb/dem:4:2);

readln;

end.