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
У вас есть число 137 если вам надо перевести его в какую-нибудь систему счисления, то нужно делить это число на номер системы, так если нужно перевести число 137 в ДВОичную ,то делим на 2 до тех пор, пока остатотк от деления не равен 1.(если в ТРОичную то на 3 и т.д.). начнём: 137 / 2 = 68 выписываем остаток (1) 68 / 2 = 34 выписываем остаток (0) 34 / 2 = 17 выписываем остаток (0) 17 / 2 = 8 выписываем остаток (1) 8 / 2 = 4 выписываем остаток (0) 4 / 2 = 2 выписываем остаток (0) 2 / 2 = 1 <== на этой единице заканчиваем деление, далее снизу вверх выписываем получившееся число : 001001; ответ: 001001