50 балов
Объяснение:50 балов
50 балов
50 балов
50 балов
50 балов
50 балов
50 балов
50 балов
50 балов
50 балов
50 балов
50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов50 балов
50 балов
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.
