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

@GullZz · Регистрация: 10.10.2016

Author24 — интернет-сервис помощи студентам

2. Поменять местами последний элемент массива с самым правым максимальным элементом, а затем умножить все элементы массива на заданное число.

@JuriiMW · 14.12.2016, 05:56

Pascal

begin
  var a := ArrRandomInteger(ReadLnInteger('Размер массива ='), -10, +10);
  Write('a = '); a.Println;
  Swap(a[a.Length-1], a[a.LastIndexMax]);
  WriteLn('Поменяли самый правый максимальный с последним элементом:');
  Write('a = '); a.Println;
  var c := ReadLnInteger('Заданное число ='); a := a.Select(n->n*c).ToArray;
  WriteLn('Все элементы домножили на заданное число:');
  Write('a = '); a.Println;
end.

@GullZz 0 / 0 / 0 Регистрация: 10.10.2016 Сообщений: 12
		1
	Поменять местами последний элемент массива с самым правым максимальным элементом 13.12.2016, 22:03. Показов 2194. Ответов 1 Метки нет (Все метки) 2. Поменять местами последний элемент массива с самым правым максимальным элементом, а затем умножить все элементы массива на заданное число. 0

	14.12.2016, 05:56

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

Решение