Дан одномерный вещественный массив B(N). Найти сумму положительных элементов массива

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016begin  var n:=ReadInteger('n=');  var b:=ArrRandomReal(n,-5,10);  Writeln('Исходный массив'); b.Println(', ');  Writeln('Сумма положительных элементов ',    b.Where(x->x>0).Sum)end.Тестовое решение:n= 10Исходный массив6.62419754156107, 6.74697848816727, 4.73433683148322, -0.587218480923781, -4.4331698163567, 0.961155824345143, -0.229649536884227, 7.50758543494511, 7.66080652720332, 9.97409514848799Сумма положительных элементов 44.2091557961931