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.