Viết ct nhập mảng A gồm N số thực a. Tính và xuất ra màn hình trung bình cộng giá trị các phân tử của mảng b. Xuất ra màn hình những phân tử có giá trị lớn hơn hoặc bằng trung bình cộng Mọi người giúp mình với,｡•́‿•̀

program Tin_hoc;

uses crt;

var i,n,tong,tb:integer;

     a:array [1..10000000] of real;

begin

clrscr;

write('Nhap do dai cua mang: ');readln(n);

tong:=0;

writeln('Nhap ',n,' cua mang:');

for i:= 1 to n do

begin

readln(a[i]);

tong:=tong+a[i]

end;

tb:=tong/n;

writeln('Cac phan tu co gia tri lon hon hoac bang trung binh cong la:');

for i:= 1 to n do if a[i] >= tb then write(a[i]:1:2,'   ');

readln;

end.

uses crt;
var a:array[1..10000] of real;
n,i:integer;
s:real;
begin
 clrscr;
 write('nhap n:'); readln(n);
 for i:=1 to n do
 begin
  write('a[',i,']:'); readln(a[i]);
  s:=s+a[i]; 
 end;
 s:=s/n;
 writeln('trung binh cong: ',s:0:2);
 writeln('cac phan tu co gia tri lon hon hoac bang trung binh cong la:');
 for i:=1 to n do if (a[i]>=s) then writeln(a[i]:0:2);
 readln;
end.