Постройте изомеры к 2,4,4 - триметилпентану и 2,2 - диэтилгексену

255

398

Посмотреть ответы 2

Ответы на вопрос:

noxiksds

Химия

4,6(57 оценок)

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.