Создать массив из 15 элементов. Заполнить его случайными числами от 0 до 50. Поменять местами первый и последний, восьмой и седьмой тоже. Вывести на экран исходный массив. ПАСКАЛЬ
Answers & Comments
estengseantPascalABC.NET 3.3.5, сборка 1660 от 20.04.2018 Внимание! Если программа не работает, обновите версию!
begin var a:=ArrRandom(15,0,50); a.Println; Swap(a[0],a[14]); Swap(a[6],a[7]); a.Println end.
Answers & Comments
Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(15,0,50); a.Println;
Swap(a[0],a[14]); Swap(a[6],a[7]); a.Println
end.
Пример
15 47 4 20 36 42 27 40 2 45 26 26 48 25 17
17 47 4 20 36 42 40 27 2 45 26 26 48 25 15