Составить программку массивK(10)=1;0;3;5;2;-4;6;-2;0;7отыскать сумму положительных и сумму

Составить программку массив
K(10)=1;0;3;5;2;-4;6;-2;0;7
отыскать сумму положительных и сумму отрицательных чисел

Задать свой вопрос
Максим
какой язык?
Кристина Шелбанова
На Паскале
1 ответ
Begin
var a:=Arr(1,0,3,5,2,-4,6,-2,0,7).Println;
writeln(a.Where(x-gt;xgt;0).Sum);
writeln(a.Where(x-gt;xlt;0).Sum);
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт