cho dãy số thực a1,a2,a3,…(1

20/07/2021 Bởi Alice

0 bình luận về “cho dãy số thực a1,a2,a3,…(1<n<100, a<10^9)yêu cầu: hãy tính giá trị trung bình của dãy số trên.[Tìm phần tử có giá trị gần với giá trị trung bình”

1. uses crt;
   var a: array[1..100] of real;
   i,n,vt: integer;
   tbc,gtg:real;
   begin
    clrscr;
     write (‘nhap so luong phan tu: ‘);  readln (n);
     for i:=1 to n do
     begin
      write (‘nhap a[‘,i,’]: ‘);  readln (a[i]);
      tbc:=tbc+a[i];
     end;
     tbc:=tbc/n;
     writeln (‘gia tri trung binh la: ‘,tbc:1:2);
     for i:=1 to n do
      if (a[i]=tbc) or (a[i]-tbc<=1) or (a[i]-tbc<=-1) then
      begin
       gtg:=a[i];
       vt:=i;
      end;
     writeln (‘so co gia tri gan voi gttb nhat la: ‘,gtg);
    readln;
   end.

   Bình luận