Заданы одномерные массивы A и B.
Найти сумму положительных элементов массива B и
заменить на это значение все элементы массива А
расположение перед максимальным элементом массива

PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var b:=ArrRandom(ReadInteger('n='),-50,50); b.Println;  var sp:=b.Where(t->t>0).Sum;  var im:=a.IndexMax;  if im>0 then begin a:=ArrFill(im,sp)+a[im:]; a.Println end  else Writeln('Максимальный элемент стоит первым')end.Примерn= 15-34 -10 30 16 -36 35 10 39 21 50 29 -41 4 25 -28n= 13-36 -6 -3 5 -34 -19 -35 -23 2 49 -8 24 -380 80 80 80 80 80 80 80 80 50 29 -41 4 25 -28