Ответы
Ответ дал:
0
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.
Приложения:
![](https://st.uroker.com/files/6d7/6d78fe2270a3745772c3caeccaae7cee.jpg)
Вас заинтересует
1 год назад
1 год назад
7 лет назад
8 лет назад