Найти максимальный элемент массива и поменять его местами с последним элементом

@SlavaCherep · Регистрация: 01.11.2016

Дан одномерный массив, который содержит не более 200 целых чисел. Найти максимальный элемент и поменять его местами с последним элементом.

@ZX Spectrum-128 · 20.12.2016, 20:12

@volvo · 20.12.2016, 20:44

В PABC.NET это делается гораздо проще:

Pascal

begin
  var a := ArrRandomInteger(ReadlnInteger('n = '), 0, 100).Println(',').ToArray;
  Swap(a[a.High], a[a.LastIndexMax]);
  a.Println(',');
end.

, например

@SlavaCherep 0 / 0 / 0 Регистрация: 01.11.2016 Сообщений: 35
		1
	Найти максимальный элемент массива и поменять его местами с последним элементом 19.12.2016, 22:22. Показов 1543. Ответов 2 Метки нет (Все метки) Дан одномерный массив, который содержит не более 200 целых чисел. Найти максимальный элемент и поменять его местами с последним элементом. 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	20.12.2016, 20:12	2
	Найти максимальный элемент массива и поменять его местами с последним элементом. 0

	20.12.2016, 20:44

Решение