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.
Внимание! Если программа не работает, обновите версию!
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.