begin
var n := ReadInteger('n =');
var a := ArrRandom(n, -10, 99);
a.Println;
a.TakeWhile(p -> p > 0).DefaultIfEmpty.Average.Println
end.
Объяснение:
TakeWhile(p -> p > 0) - отбирает элементы от начала до тех пор, пока условие p > 0 истинно, т.е. со значением, большим нуля.
DefaultIfEmpty - если первое же значение не положительно, результатом будет один элемент, равный нулю (нельзя найти среднее, если элементов не отобрано вообще, получим 0/0)
Average - находит среднее отобранных элементов
Дерево -корень
Дерево - ствол
Дерево - фруктовое - яблоня - яблоко
Дерево - хвойное - сосна
Дерево -хвойное - пихта
Дерево - хвойное лиственница
Дерево лиственное - дуб - желудь
Дерево - лиственное - береза
Program Shar;
Var
r, v: Real;
Begin
Write('r = ');
ReadLn(r);
v := 4 / 3 * 3.14 * r * r * r;
WriteLn('v = ', v);
ReadLn;
End.