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

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

Задать свой вопрос
Strunkina Ljudmila
Может быть, окончательно.
Галина
Я делаю по такому принципу
Stepan Sharifullin
Почему, можно оба поменять, осматривая соседей в кадом массиве. Но это труднее.
Лилия Валюс
И случай когда нет соседей?
Варвара Ливишис
Желая, тоже такое для себя условие
Оксана Шихерева
Не обозначено что размеры схожи
Мишаня Слободчуков
Почему труднее? Может давайте вы сделаете одним методом, а я иным?)
Дарья Левкут
Нет, не люблю на мусорник работу. Человек поленился разузнать даже, что ему надобно, а мы тут себе мозг сушим))) Хотите - делайте))
Могилева-Корзун Артемий
Хорошо уж)
Илья
Тем более, что пройти оба массива в Zip не проблема
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)-gt; max(x, y)).ToArray;

 

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

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

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

 

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

 Println('Малый = b.MinNewLineНаибольший = b.Max');

end.


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

, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт