Составьте программку и запишите на одном из языков программирования. Дан массив

Составьте программку и запишите на одном из языков программирования. Дан массив DAR размерностью 25. Найти сумму нечётных, положительных частей данного массива.

Задать свой вопрос
1 ответ
PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
Внимание! Если программка не работает, обновите версию!

begin
  var dar:=ArrRandom(25,-99,99); dar.Println;
  Writeln('Сумма нечетных положительных одинакова ',
      dar.Where(t-gt;t.IsOdd and (tgt;0)).Sum)
end.
, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт