Tin học cho dãy số thực a1,a2,a3,…(1 20/07/2021 By Alice 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. Trả lời