Question

Паскаль 25 баллов.
Дан численный массив M, количество элементов которого равна n натуральное число k(k≤n). Исключить из массива элемент индекса k.

Answer 1

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.