1)2Al +3H2SO4 = Al2(SO4)3+3H2
6H (I) + 6 e- → 6H (0) (восстановле́ние)
2Al(0) - 6 e- → 2Al (III) (окисление)
2)K2MnO4+2NaI+ H2SO4 = MnSO4+I2+NA2SO4+K2SO4+H2O
3)P2S3+ 22HNO3 = 2H3PO4 + 3SO2 +22NO2+8H2O
4)NH4NO3= N2O+2H2O
N (III) - 4 e- → N (I) (окисление)
N (V) + 4 e- → N (I) (восстановление)
5)Fe2O3+3CO = 2Fe+3CO2
3 C (II) - 6 e- → 3 CI (V) (окисление)
2 Fe (III) + 6 e- → 2 Fe (0) (восстановление)
6) 4FeSO4 = 2Fe2O3+4SO2+O2
4S (VI) + 8 e- → 4 S (IV) (восстановление)
4Fe (II) - 4 e- → 4 Fe (III) (окисление)
2O (II) - 4 e- → 2O (0) (окисление)
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.