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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.