Popova-Erikhovich
?>

дан одномерный массив, состоящий из N целых чисел. Найти сумму всех положительных элементов, и сумму всех отрицательных элементов. на компьютер нужно написать программку​

Информатика

Ответы

panasenko68

begin

 var N:Integer;

 read(N);

 var arr := ReadArrInteger(N);

 writeln();

 arr.Where(x -> x > 0).Sum.PrintLn();

 arr.Where(x -> x < 0).Sum.PrintLn();

end.

//PascalABC.NET v3.5.X

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

дан одномерный массив, состоящий из N целых чисел. Найти сумму всех положительных элементов, и сумму всех отрицательных элементов. на компьютер нужно написать программку​
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

Тинчурина1528
ktv665
mamanger
Lukina
gordeevadesign2986
Мария-Кострыгина175
Nugamanova-Tatyana840
steam22-9940
Ivan500
barkhatl-2p7
Mamikin
mustaevdmitry397
Mexx9050
qadjiyevaaynura
Sokolova-Shcherbakov