Вопрос по информатике:
Паскаль!!!
Сформировать одномерный целочисленный массив A размерностью N.
Запросить у пользователя индекс k и поменять местами элемент A[k-1] и
A[k+1]. Вывести на экран исходный и итоговый массивы. Если k = 1 или N –
вывести сообщение об ошибке.
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 17.08.2018 02:58
- Информатика
- remove_red_eye 6222
- thumb_up 50
Ответы и объяснения 1
// 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
- 18.08.2018 00:45
- thumb_up 36
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.