АБ
Алексей Богдюн
Задачи в программе Free Pascal
Даны действительные числа x1,...xn (все числа попарно различны) . Поменять местами наибольший и последний элементы.
Даны действительные числа x1,...xn (все числа попарно различны) . Поменять местами наибольший и последний элементы.
p := 1; for i := 1 to n do if (a[ p ] < a[ i ]) then p := i;
swap( a[ i ], a[ n ] );