Заполните массив 13 элементами случайными числами. вывести числа от -2 до 4 включительно. все отрицательные числа превратить в 1 и сложить все единицы.
// PascalABC.NET 3.3, сборка 1599 от 17.12.2017 // Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(13,-2,4); a.Println; Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum); a.Transform(t->t<0?1:t); a.Println; Writeln('Сумма единиц равна ',a.Where(t->t=1).Sum) end.
Пример 1 3 4 4 3 -2 -2 2 1 -2 4 3 -1 Сумма положительных равна 25 1 3 4 4 3 1 1 2 1 1 4 3 1 Сумма единиц равна 6
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(13,-2,4); a.Println;
Writeln('Сумма положительных равна ',a.Where(t->t>0).Sum);
a.Transform(t->t<0?1:t); a.Println;
Writeln('Сумма единиц равна ',a.Where(t->t=1).Sum)
end.
Пример
1 3 4 4 3 -2 -2 2 1 -2 4 3 -1
Сумма положительных равна 25
1 3 4 4 3 1 1 2 1 1 4 3 1
Сумма единиц равна 6