//PascalABC.NET версия 3.3.5.1636 от 10.03.18 //Если программа не запускается, то обновите версию begin var a := ArrRandomInteger(20, -50, 50); Println(a); PrintLn('S = ', a.Sum); PrintLn('(x<0) = ', a.IndexesOf(x -> x < 0)); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку