// PascalABC.NET 3.3.5, сборка 1636 от 10.03.2018 // Внимание! Если программа не работает, обновите версию!
begin var n:=ReadInteger('n='); var a:=ArrRandom(n,-99,99); a.Println; a.OrderBy(t->t).Println; // 1 var b:=Copy(a); b.Transform(t->t mod 10=0?0:t); b.Println; // 2 Range(2,n-1,3).Select(i->a[i]).Println; // 3 Writeln('Элементов после max: ',n-a.IndexMax-1) // 4 end.
ответ четыре так как получается 1100011