Question

Задан массив DNA из N чисел (N=18) случайным образом в диапазоне [-5..15]. Найти количество положительных элементов массива. С объяснениями, пожалуйста

Answer 1

// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=18;
  var dna:=ArrRandom(n,-5,15); dna.Println; // заполнение и вывод массива
  Writeln('Кол-во положительных равно ',dna.Where(t->t>0).Count)
end.

Пример
-3 3 -5 2 6 11 1 8 -4 -3 13 -2 5 -3 2 -5 4 7
Кол-во положительных равно 11

Answer 2

Вот держи !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!