const
k = 10;
var
a: array [1 .. k] of integer;
i, n, m: integer;
begin
writeln('Введите номер элемента');
readln(n);
writeln('Введите номер элемента замены');
readln(m);
for i := 1 to k do
begin
a[i] := random(10) - 5;
write(a[i]:3);
end;
writeln;
for i := 1 to k do
if i = n then
a[i] := a[m];
for i := 1 to k do
write(a[i]:3);
end.