Дан одномерный массив A[n]. Найти сумму отрицательных элементов. Получить новый ...

August 2022 1 5 Report

Дан одномерный массив A[n]. Найти сумму отрицательных элементов. Получить новый массив B[n] путем замены нулевых элементов на полученную сумму.
pascal

Answers & Comments

vunderkid // PascalABC.NET 3.2, сборка 1509 от 27.07.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:=ArrRandom(ReadInteger('n='),-10,10); a.Println;
var s:=a.Where(x->x<0).Sum; // сумма отрицательных элементов
var b:=a.Select(x->x=0?s:x).ToArray; b.Println
end.

Пример
n= 20
1 6 2 4 2 3 5 -8 2 -6 0 1 -7 0 -7 8 -4 -8 -1 -8
1 6 2 4 2 3 5 -8 2 -6 -49 1 -7 -49 -7 8 -4 -8 -1 -8

1 votes Thanks 1

Answers & Comments

dany veshestvennye polozhitelnye chisla a b c vyyasnit sushestvuet li treugoln

dano n celyh chisel poluchennyh ot datchika sluchajnyh chisel v diapazone ot 1000 d

dany 3 odnomernyh massiva a b c raznoj dliny razrabotat proceduru vvoda mass

zadanie 7 dan massiv celyh neodinakovyh chetyrehznachnyh chisel najti v massive ch

napisat funkciyu logicheskogo tipa proveryayushuyu yavlyayutsya li vse cifry vhodyashie

рекомендуемые вопросы

Helpful Links

Helpful Social