Для с++ выведите элементы данного списка в обратном порядке, не изменяя сам список. входные данные вводится список чисел. все числа списка находятся на одной строке. выходные данные выведите ответ на .

Незнаю, сейчас попробую решить.

Сложно :(

Const n = 10;
var
  a:array[1..n]of integer;
i,k,temp:integer;

begin
  for i:=1 to n do a[i]:=random(21) - 10;
  repeat
    writeln('Введите k (k<>1 и k<>10)');
    readln(k);
    if (k=1) or (k=n) then writeln('Ошибка, повторите ввод');
  until (k<>1) and (k<>n);
  for i:=1 to n do write(a[i]:4);writeln;
  temp:=a[k-1];a[k-1]:=a[k+1];a[k+1]:=temp;
  for i:=1 to n do write(a[i]:4);  
end.

Тестовое решение:
Введите k (k<>1 и k<>10)
1
Ошибка, повторите ввод
Введите k (k<>1 и k<>10)
5
   7  -5  -6   6  -7   3   9   8   7  -6
   7  -5  -6   3  -7   6   9   8   7  -6

Так как язык не указан, приведу пример на SWI-Prolog.

Код:

read_int(Int) :- read(Int), integer(Int).split_int_by_numbers(0, []) :- !.split_int_by_numbers(N, [Number|Ints]) :- Number is mod(N, 10), RestN is div(N, 10), split_int_by_numbers(RestN, Ints).test_to_div(_, []).test_to_div(N, [Number|Ints]) :- mod(N, Number) =:= 0, test_to_div(N, Ints). test(Int) :- split_int_by_numbers(Int, Numbers), test_to_div(Int, Numbers), write(Int), write(" - Yes!"), nl.test(Int) :- write(Int), write(" - No!"), nl.?- read_int(Int), test(Int).