помогите написать программу в паскале
В массиве А (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
Новые вопросы