Noky
5 год назад
Массив из 13 элементов заполнить случайными числами от -2 до 4 включительно. Найти сумму положительных элементов . Заменить все отрицательные элементы единицами.Определить количество единичных элементов.
ОТВЕТЫ
Valeriya
Oct 24, 2020
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
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
230
Смежные вопросы:
