Ответы
Ответ дал:
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
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
Вас заинтересует
5 месяцев назад
5 месяцев назад
5 лет назад
5 лет назад