Паскаль!!! Сформировать одномерный целочисленный массив A размерностью N. Запросить у пользователя индекс k и поменять местами элемент A[k-1] и A[k+1]. Вывести на экран исходный и итоговый массивы. Если k = 1 или N – вывести ...
Паскаль!!!
Сформировать одномерный целочисленный массив A размерностью N.
Запросить у пользователя индекс k и поменять местами элемент A[k-1] и
A[k+1]. Вывести на экран исходный и итоговый массивы. Если k = 1 или N –
вывести сообщение об ошибке.
Гость
Ответ(ы) на вопрос:
Гость// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-10,15); a.Println;
var k:=ReadInteger('k=');
if k in [2..n-1] then begin
Swap(a[k-2],a[k]); a.Println
end
else Writeln('Неверное k')
end.
Тестовое решение:
n= 10
2 -10 10 -8 7 -4 9 2 -6 0
k= 4
2 -10 7 -8 10 -4 9 2 -6 0
Не нашли ответ?
Похожие вопросы