Nhập vào một dãy gồm n số thực. Sau đó thực hiện các nhiệm vụ sau: - Tính trung bình cộng các phần tử trong dãy - Tìm phần tử trong dãy chêch lệch với giá trị trung bình cộng là nhỏ nhất Input: - Dòng đầu chứa số nguyên dương n (1 <= n <= 100) - Dòng 2 gồm n số thực a1, a2, ..., an. Output: - Dòng 1: chứa giá trị TBC của dãy số - Dòng 2: giá trị của phần tử chênh lệch với giá trị trung bình cộng là nhỏ nhất. Ví dụ Input Output 5 -1.00 4.00 -3.00 2.00 5.00 1.40 2.00 pascal

uses crt;
var n,i:integer;
max,s,t:real;
a:array[1..100] of real;
begin
clrscr;
readln(n);
for i:=1 to n do
begin
 readln(a[i]);
 s:=s+a[i];
end;
s:=s/n;
writeln(s:0:2);
max:=abs(s-a[1]);
for i:=2 to n do
 if max>abs(s-a[i]) then
 begin
  max:=abs(s-a[i]);
  t:=a[i];
 end;
write(t:0:2);
readln
end.

var n,i: integer;
    ans,tb: real;
    a: array[1..100] of real;
begin
    readln(n);
    tb:=0;
    for i:=1 to n do begin
        read(a[i]);
        tb:=tb+a[i];
    end;
    tb:=tb/n;
    ans:=a[1];
    for i:=2 to n do if abs(tb-ans)>abs(tb-a[i]) then ans:=a[i];
    writeln(tb:0:2);
    write(ans:0:2);
end.