Предмет: Информатика,
автор: titchenko2000
Заполнить массив из 10 элементов случайными числами в интервале [-10; 10] и подсчитать сумму всех отрицательных элементов.
Ответы
Автор ответа:
0
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('s=',a.Where(x->x<0).Sum)
end.
Тестовое решение:
3 4 -10 4 0 -1 1 -8 1 10
s=-19
begin
var a:=ArrRandom(10,-10,10); a.Println;
Writeln('s=',a.Where(x->x<0).Sum)
end.
Тестовое решение:
3 4 -10 4 0 -1 1 -8 1 10
s=-19
Похожие вопросы
Предмет: Математика,
автор: mihailfilenov
Предмет: Английский язык,
автор: lotos77777
Предмет: Алгебра,
автор: savaerttt
Предмет: Математика,
автор: AnnaVolodina2
Предмет: Математика,
автор: Умняшка28