Предмет: Информатика,
автор: zoaz2
дан массив p n состоящий из n вещественных чисел. Определить отдельно сумму положительных и отрицательных элементов массива. Паскаль помогите пожалуйста
Ответы
Автор ответа:
0
PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018
Внимание! Если программа не работает, обновите версию!
begin
var p:=SeqRandomReal(ReadInteger('n='),-99,99)
.Select(t->Round(t,2)).ToArray;
p.Println;
Println('Сумма положительных',p.Where(r->r>0).Sum);
Println('Сумма отрицательных',p.Where(r->r<0).Sum)
end.
Похожие вопросы
Предмет: Українська література,
автор: 0Artur
Предмет: Русский язык,
автор: Аноним
Предмет: Қазақ тiлi,
автор: imvolk1979
Предмет: Математика,
автор: lizard6