1)
<span>z = 0
</span><span>считаем количество нечётных элементов массива
</span>15 (нечётное) z = 1
<span>17 </span> (нечётное) z = 2
<span>24</span> (чётное) z = 2<span>
18</span> (чётное) z = 2<span>
13 </span> (нечётное) z = 3<span>
28</span> (чётное) z = 3<span>
18</span> (чётное) z = 3<span>
95</span> (нечётное) z = 4<span>
19 </span> (нечётное) z = 5<span>
17 </span> (нечётное) z = 6
<span>Ответ: 6
2)
</span><span>s = 24 (первому элементу массива)
сравниваем со следующими элементами массива, если элемент больше s присваиваем s значение большего элемента
7 > 24 (нет)
</span>14 > 24 (нет)
<span>8</span> > 24 (нет)<span>
56</span> > 24 (да) s = 56
12 > 56 (нет)<span>
48</span> > 56 (нет)<span>
25</span> > 56 (нет)<span>
19</span> > 56 (нет)<span>
17</span> > 56 (нет)
Ответ: 56
Если дрова осиновые
-> да -> положить в навес
-> нет -> если дрова березовые
-> да -> положить в камин
-> нет -> положить в поленницу
(1*2)+9=11\2 и (1*16)+7=23\16............теперь сравниваем 11\2 меньше 23\16, а 23\16 больше 11\2
subroutine SumSer(eps, res)
real eps
real(8) res
real(8) :: sgn = -1, z = 1, a
integer :: i = 1
res = 0
do
z = z * (2 * i) * ( 2 * i - 1)
a = sgn / z
if (abs(a) <= eps) then
exit
endif
res = res + a
sgn = -sgn
i = i + 1
enddo
end subroutine SumSer
program MainProg
real :: eps = 0.00001
real(8) y
call SumSer(eps, y)
write(*,'(1X,F9.6)') y
end program MainProg