Конвертировать два заданных массива, увеличивая их соответствующие элементы на большее из
Преобразовать два данных массива, увеличивая их подходящие элементы на большее из разглядываемой каждый раз пары чисел. В первом из приобретенных массивов найти среднее арифметическое, во втором максимальный и малый элементы. В Pascal.
Задать свой вопрос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.
Пример вывода в прибавлении.
-
Вопросы ответы
Статьи
Информатика
Статьи
Разные вопросы.
Математика.
Физика.
Геометрия.
Разные вопросы.
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.