Question

Viết đoạn lệnh nhập mảng a gồm n các số nguyên xuất ra màn hình các giá trị lớn hơn trung bình cộng các phần tử mảng

Answer 1

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

n,i: integer;

tb: real;

begin

write('Nhap N = '); readln(n);

for i:=1 to n do 

begin

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

end;

tb:=0;

for i:=1 to n do

tb:=tb+a[i];

tb:=tb/n;

for i:=1 to n do 

if a[i] > tb then writeln(a[i]);

readln

end.