program approximation; var m: array[1..40] of real; s,v: real; i,k: integer; begin s: =0; for i : = 1 to 40 do begin write ('введите ',i,'-й элемент массива'); readln(m[i]); s: =s+m[i]; end; s: =s/40; v: =m[1]-s; for i : = 2 to 40 do begin if (v< (m[i]-s)) then begin v: =m[i]-s; k: =i; end; end; writeln (k,'-й элемент наименее отличается от среднего ',s); end; end.
