// PascalABC.NET 3.3
// Cборка 1590 от 03.12.2017
1)
begin
var a:=ArrRandom(10,1,10); Println('Исходный массив:'); a.Println;
swap(a[1],a[8]); Println('Полученный массив:'); a.Println;
end.
Пример:
Исходный массив:
5 10 10 2 3 5 5 7 3 9
Полученный массив:
5 3 10 2 3 5 5 7 10 9
2)
begin
var a:=ArrRandom(8,1,100); Println('Исходный массив:'); a.Println;
Println('Масимальное:',Range(0,6,2).Select(i->a[i]).Max);
end.
Пример:
Исходный массив:
50 10 18 75 2 54 86 30
Масимальное: 86