Question

输入十个数，将其中的偶数放入数组中，并求出这些偶数终大于偶数平均值的数。pascal

Answer 1

program ygb;

var i,x,n,sum,avg:integer; arr:array[1..10] of integer;

begin

n:=0;

sum:=0;

writeln('输入10个数');

for i:=1 to 10 do

begin

read(x);

if x mod 2 = 0 then

begin

n:=n+1;

arr[n]:=x;

sum:=sum+x;

end;

end;

avg:=sum/n;

writeln('你共输入了',n,'个偶数，平均数',avg,'是，大于平均数的有：');

for i:=1 to n do write(arr[i],' ');

end.