Дан массив p n состоящий из n вещественных чисел. определить отдельно сумму положительных и отрицательных элементов массива. паскаль
Butuzovapelageya
3
28.09.2019 23:20
0
Другие вопросы по теме Информатика
Викторина22
07.04.2020 07:18
ALEXFORBIDDEN
07.04.2020 07:16
Shkolnik555777
07.04.2020 07:14
kobelevmiklip08h5g
07.04.2020 07:11
zswdfx
07.04.2020 07:08
SashaLas
07.04.2020 07:06
diana2007ru
07.04.2020 07:05
КРЕНДЕЛЬ228
07.04.2020 07:05
666Лиза66611
07.04.2020 07:04
Популярные вопросы
- при яких обставинах ровена сказала про Айвенго «І ніколи ще вінець лицарства не...
3 - Укажите самостоятельные города-республики ? 1)Лондон 2)Лютеция 3)Генуя 4)Венеция...
2 - студенческий Женя и Ваня играют в игру «крестики-крестики». Игра заключается в...
2 - «Вивчення відносного показника заломлення скла» І. Дайте відповіді на теоретичні...
3 - Look at exercise 2 again Write sentences about Fiddle...
2 - Задание номер 1 Примеры врождённых и приобретённых заболеваний нс ;...
1 - Зробіть висновок відповідно до мети заняття Мета: визначити особливості військового...
3 - Условие задания: „Иван ходит со скоростью 7 километров в час. Между Санкт-Петербургом...
2 - Почему в слове освещало пишется е?...
1 - Choose the correct answer. Who (you wait) for when I arrived? were you waiting...
2
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.