Паскаль 25 баллов. Дан численный массив M, количество элементов которого равна n натуральное число k(k≤n). Исключить из массива элемент индекса k.
Answers & Comments
koteraspa
Var M:array[1..20] of integer; i,n,k:integer; begin read(n,k); for i:=1 to n do read(M[i]); for i:=1 to n do if i<> k then wrte(N[i],' '); end.
Answers & Comments
i,n,k:integer;
begin
read(n,k);
for i:=1 to n do
read(M[i]);
for i:=1 to n do
if i<> k
then wrte(N[i],' ');
end.