Question

Массив из 13 элементов заполнить случайными числами от -2 до 4 включительно.
Найти сумму положительных элементов . Заменить все отрицательные элементы единицами.
Определить количество единичных элементов.

Answer 1

PascalABC.NET 3.3

begin
 var a:=ArrRandom(13,-2,4).Println;
 writeln('s = ',a.Where(x->x>0).Sum);
 a:=a.Select(x->x<0?1:x).ToArray; 
 a.Println;
 writeln('Кол-во единиц = ',a.Where(x->x=1).Count);
end.

Пример:
-2 2 3 2 2 4 4 -1 0 2 2 4 1
s = 26
1 2 3 2 2 4 4 1 0 2 2 4 1
Кол-во единиц = 3