profile
Опубликовано 5 лет назад по предмету Информатика от dikanyuri228

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

  1. Ответ
    Ответ дан Giammy

    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.


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