Массив из 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.
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