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

Question

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

Answer 1

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

begin
  var dar:=ArrRandom(25,-99,99); dar.Println;
  Writeln('Сумма нечетных положительных равна ',
      dar.Where(t->t.IsOdd and (t>0)).Sum)
end.

---