дан массив p n состоящий из n вещественных чисел. Найти отдельно

Дан массив p n состоящий из n вещественных чисел. Определить раздельно сумму положительных и отрицательных частей массива. Паскаль помогите пожалуйста

Задать свой вопрос
1 ответ

PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var p:=SeqRandomReal(ReadInteger('n='),-99,99)

     .Select(t-gt;Round(t,2)).ToArray;

 p.Println;

 Println('Сумма положительных',p.Where(r-gt;rgt;0).Sum);

 Println('Сумма отрицательных',p.Where(r-gt;rlt;0).Sum)

end.

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт