Произведение чисел в массиве

@Vlad_01 · Регистрация: 12.12.2016

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

Pascal ABC Net
Дан массив чисел найти наибольшее произведение двух чисел из него, при условии что между этими двумя должны располагаться минимум 3 числа
пример:
1 2 3 4 5 6 7 8
32

@volvo · 12.12.2016, 22:55

Средствами .NET - вот так:

Pascal

begin
  var a := arr(1, 2, 3, 4, 5, 6, 7, 8);
  var ix := Range(0, a.Length - 1);
  writeln(ix.Cartesian(ix).Where(T -> (Abs(T[0] - T[1]) > 3) and (T[0] < T[1])).ToArray().
          Select(T -> a[T[0]]*a[T[1]]).Max());
end.

, а обычным Паскалем - скучно.

@Vlad_01 0 / 0 / 0 Регистрация: 12.12.2016 Сообщений: 3
		1
	Произведение чисел в массиве 12.12.2016, 19:50. Показов 1124. Ответов 1 Метки нет (Все метки) Pascal ABC Net Дан массив чисел найти наибольшее произведение двух чисел из него, при условии что между этими двумя должны располагаться минимум 3 числа пример: 1 2 3 4 5 6 7 8 32 0

	12.12.2016, 22:55

Произведение чисел в массиве

Решение