profile
Опубликовано 5 лет назад по предмету Информатика от zoaz2

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

  1. Ответ
    Ответ дан Аккаунт удален

    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.

Самые новые вопросы