Предмет: Информатика,
автор: vladil1997
помогите написать программу в паскале
В массиве А (15) целых чисел поменять местами 5 и 13 элементы. Вывести начальный и изменены массивы в строку через два пробела.
Ответы
Автор ответа:
0
// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-50,50); a.Println(' ');
Swap(a[4],a[12]); // индексы от нуля
a.Println(' ')
end.
Пример
40 28 18 1 35 -50 13 17 40 7 -48 46 -12 -9 50
40 28 18 1 -12 -50 13 17 40 7 -48 46 35 -9 50
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,-50,50); a.Println(' ');
Swap(a[4],a[12]); // индексы от нуля
a.Println(' ')
end.
Пример
40 28 18 1 35 -50 13 17 40 7 -48 46 -12 -9 50
40 28 18 1 -12 -50 13 17 40 7 -48 46 35 -9 50
Похожие вопросы
Предмет: Литература,
автор: wow212
Предмет: История,
автор: sofia4934
Предмет: Русский язык,
автор: dehaan
Предмет: Литература,
автор: Вика12058