<span>116=1110100 </span>
<span> -116=0001011</span>
begin
var k := 10;
var x := ReadArrReal('Введи 10 элементов Х:', k);
var y := SeqGen(k, n -> (x[n - 1] / 2) ** n / n, 1).Sum;
y.Println;
end.
Решение показано в прилагаемом файле.
Формулы:
Для столбца H:
Сумма: =СУММ(C2:G2)
Количество мастеров спорта: =СЧЁТЕСЛИ(H2:H11;">=150")
Max =: =МАКС(H2:H11)
Мин =: =МИН(H2:H11)
Для столбца I:
Среднее: =СРЗНАЧ(C2:G2)
ФИО спортсмена с макс. баллами:
=ИНДЕКС(A2:H11;ПОИСКПОЗ(H13;H2:H11;0);2)
ФИО спортсмена с мин. баллами:
=ИНДЕКС(A2:H11;ПОИСКПОЗ(H14;H2:H11;0);2)
Сначала 1, потом 3, потом 2