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

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.