Question

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

Answer 1

// PascalABC.NET 3.0, сборка 1139 от 10.01.2016
begin
  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