Даны 7 одномерных массивов a,b,c,d,e,f,g ** 15, 13, 8, 11, 14, 10, 9 элементов...

Question

Даны 7 одномерных массивов a,b,c,d,e,f,g на 15, 13, 8, 11, 14, 10, 9 элементов соответственно. Вывести имена массивов в порядке возрастания их минимальных элементов.Заполнение массивов,поиск минимального элемента оформить в виде подпрограмм.Для решения воспользоваться двумя вспомогательными массивами.

Comments

язык имеет значение?

Answer 1

//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.

Comments

оформлен подпрограммой только встроенной

---

а промежуточный кортеж это как?

---

они даны, но их надо заполнять. Вообще конечно константы зло, но не хочется возиться. Тем более это бесполезно в данном случае

---

По хорошему тут должны быть какие-то обьекты

---

Спасибо Боьшое Вам! Выручили!!!))

---

Хорошо что помогло, если помогло