// PascalABC.NET 3.2, сборка 1325 от 19.10.2016 begin var b:=ArrRandom(30,-50,50); b.Println; var a:=ReadInteger('Введите число А:'); Writeln('Сумма отрицательных: ',b.Where(x->x<0).Sum); Writeln('Cумма положительных, не больших ',a,', равна ', b.Where(x->(x>0) and (x<=a)).Sum) end.
Пример -21 12 8 50 -47 35 45 -2 -30 -33 3 12 41 -29 8 2 -24 -44 -50 -2 -13 -32 33 -29 35 -43 20 -44 42 -3 Введите число А: 36 Сумма отрицательных: -446 Cумма положительных, не больших 36, равна 168
// PascalABC.NET 3.2, сборка 1334 от 12.11.2016 begin var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println; a:=a.Select(x->x div 2).ToArray; a.Println; var k1,k2:integer; Write('Введите k1,k2 (k1<=k2<=',a.Length,'): '); Read(k1,k2); Writeln('Произведение элементов с номерами [',k1,':',k2,'] равно ', a[k1-1:k2].Aggregate(biginteger(1),(m,n)->m*n)) end.
Пример n= 13 12 34 -4 -18 23 45 -7 49 47 11 -24 39 31 6 17 -2 -9 11 22 -3 24 23 5 -12 19 15 Введите k1,k2 (k1<=k2<=13): 3 8 Произведение элементов с номерами [3:8] равно -313632
ответ ' 3 '
Если вы хотите отблагодарить меня, то поставьте этому ответу "Лучший".