Сформировать одномерный целочисленный массив a размерностью n. запросить у пользователя индекс k и поменять местами два соседних элемента a [k -1] и a [k +1]. вывести на экран исходный и итоговый массивы. если k = 1 или n – вывести сообщение об ошибке.

260

272

Посмотреть ответы 2

Ответы на вопрос:

arsenenko

Информатика

4,8(29 оценок)

//pascal abc.net v3.1 сборка 1219 const n=10; var ar: array[1..n] of integer; k,i,c: integer; begin randomize; writeln('first array: '); for i: =1 to n do begin ar[i]: =random(9); write(ar[i]: 4); end; writeln; write('enter index: '); readln(k); if (k=1) or (n=1) then begin writeln('mwahahahaha(no)'); exit; end; c: =ar[k+1]; ar[k+1]: =ar[k-1]; ar[k-1]: =c; writeln('final array: '); for i: =1 to n do write(ar[i]: 4); end. пример работы программы: first array: 1 8 4 2 8 5 8 7 1 8 enter index: 3 final array: 1 2 4 8 8 5 8 7 1 8