Массив из 13 элементов заполнить случайными числами от -2 до 4 включительно. Найти сумму положительных элементов . Заменить все
Массив из 13 элементов заполнить случайными числами от -2 до 4 включительно. Найти сумму положительных элементов . Заменить все отрицательные элементы единицами. Определить количество единичных элементов.
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.
<span>import random as r mas = [] for i in range( 10)<span>: </span> b = r.randint(ord("A"), ord("Z")) mas.append(chr(b)) print(mas) print(sorted(mas)) </span>