Предмет: Информатика,
автор: applebvc321
Составить программу для замены местами двух крайних элементов массива q, состоящего из 22 элементов. Массив q ввести с клавиатуры.
Ответы
Автор ответа:
0
// PascalABC.NET 3.3, сборка 1600 от 23.12.2017
// Внимание! Если программа не работает, обновите версию!
begin
var q:=ReadArrInteger('Введите 22 целых числа:',22);
Swap(q[0],q[21]); q.Println
end.
Пример
Введите 22 целых числа: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
22 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 1
// Внимание! Если программа не работает, обновите версию!
begin
var q:=ReadArrInteger('Введите 22 целых числа:',22);
Swap(q[0],q[21]); q.Println
end.
Пример
Введите 22 целых числа: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
22 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 1
Похожие вопросы