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

Ответы 6

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

      azulrnd8
    • 5 лет назад
    • 0
  • По хорошему тут должны быть какие-то обьекты
    • Автор:

      dickson
    • 5 лет назад
    • 0
  • Нет, я не имел в виду заполнение, я к тому, что нельзя написать просто a[3] или b[2].
  • Спасибо Боьшое Вам! Выручили!!!))
    • Автор:

      rose42
    • 5 лет назад
    • 0
  • Хорошо что помогло, если помогло
  • //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.
    • Автор:

      jasmin
    • 5 лет назад
    • 0
  • Добавить свой ответ

Еще вопросы

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years