Преобразовать два заданных массива, увеличивая их соответствующие элементы ** большее из...

Question

Преобразовать два заданных массива, увеличивая их соответствующие элементы на большее из рассматриваемой каждый раз пары чисел. В первом из полученных массивов найти среднее арифметическое, во втором – максимальный и минимальный элементы. В Pascal.

Comments

Может быть, конечно.

---

Я делаю по такому принципу

---

Почему, можно оба менять, рассматривая соседей в кадом массиве. Но это сложнее.

---

И случай когда нет соседей?

---

Хотя, тоже такое себе условие

---

Не указано что размеры одинаковы

---

Почему сложнее? Может давайте вы сделаете одним способом, а я другим?)

---

Нет, не люблю на мусорник работу. Человек поленился разузнать даже, что ему надо, а мы тут себе мозг сушим))) Хотите - делайте))

---

Ладно уж)

---

Тем более, что пройти оба массива в Zip не проблема

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

begin

 var (a, b) := (ArrRandom, ArrRandom);

 Println('Исходные массивы: '); a.Println; b.Println; Println;

 var m := a.Zip(b, (x, y)-> max(x, y)).ToArray;

 

 Println('Конечные массивы: ');

 a := a.Select((t, i)-> t + m[i]).ToArray; a.Println;

 b := b.Select((t, i)-> t + m[i]).ToArray; b.Println;

 

 Println($'{NewLine}Сред. арифм. = {a.Average}');

 Println($'Минимальный = {b.Min}{NewLine}Максимальный = {b.Max}');

end.

Пример вывода в приложении.

---