PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println; var k:=ReadInteger('Элемент с каким номером удалить?'); if k.Between(1,a.Length) then a:=a?[:k-1]+a?[k:]; a.Println end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку