Напишите программу: даны два массива a и b, каждый из которых состоит из 13 элементов; массивы взяты - id42382020230117 от ОМОН07 17.01.2023 08:21

Question

Информатика: Напишите программу: даны два массива a и b, каждый из которых состоит из 13 элементов; массивы взяты в диапазоне от -50 до 50; элементы вводятся случайным образом(randomize); найти минимальный и максимальный элементы в каждом из массивов; затем первый массив упорядочить по возрастанию, а второй- по убыванию; затем вывести это всё на экран; ! pascal!

ОМОН07 · Accepted Answer

//PascalABC.NET версия 3.2, сборка 1389
//Если программа не запускается, то обновите версию

function CreateArray(length: integer): array of integer;
begin
    var a := new integer[length];
    for var i := 0 to length - 1 do
        a[i] := Random(0, 100);
//    Println(a);
    Result := a;
end;

begin
    var arrays := new List<(char, array of integer)>();
    arrays.Add(('a', CreateArray(15)));
    arrays.Add(('b', CreateArray(13)));
    arrays.Add(('c', CreateArray(08)));
    arrays.Add(('d', CreateArray(11)));
    arrays.Add(('e', CreateArray(14)));
    arrays.Add(('f', CreateArray(10)));
    arrays.Add(('g', CreateArray(09)));

    foreach var a in arrays.OrderBy(a -> a.Item2.Min()) do
    begin
        Println(a.Item1, a.Item2.Min());
    end;
end.

MOGZ ответил