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

20/07/2021

By Josie

cho dãy số thực a1,a2,a3,…(1 { "@context": "https://schema.org", "@type": "QAPage", "mainEntity": { "@type": "Question", "name": " cho dãy số thực a1,a2,a3,...(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.