дан массив из n целх чисел и натуральное число к. удалить из массива а елемет с номером к
Ответы на вопрос
Ответил Аноним
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.
Приложения:
Новые вопросы