Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и удалить k-ый...

Question

Заполнить массив из 10 элементов случайными числами в интервале [-10..10] и удалить k-ый элемент (k = 1 ... N- любое).
Пример:
Исходный массив:
4 -5 3 10 -4 -6 8 -10 1 5
Введите число k = 2
Результат:
4 3 10 -4 -6 8 -10 1 5

Answer 1

Program a;
var a: array [1..10] of integer;
n,s: integer;
begin
for i:=1 to 10 do begin
a[i]:=random(20)-10;
write(a[i]);
end;
readln(n);
for i:=n to 9 do begin
s:=a[i+1];
a[i+1]:=a[i];
a[i]:=s;
end;
for i:=1 to 9 do
writeln (a[i]);
end.