• 7. Создать массив случайных чисел. Вывести. Найти минимальный элемент и его индекс. Вывести. Вывести массив таким образом: сначала те элементы массива, которые идут за минимальным, затем те элементы, которые - перед минимальным включая и сам минимальный элемент. (на ПАСКАЛЕ)

    question img

Ответы 1

  • // PascalABC.NET 3.3, сборка 1583 от 25.11.2017// Внимание! Если программа не работает, обновите версию!begin  var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;  var imin:=a.IndexMin;  Writeln('Минимальный элемент №',imin+1,' равен ',a[imin]);  (a[imin+1:]+a[:imin+1]).Printlnend.Примерn= 15-28 1 28 39 43 48 -7 -26 50 39 -24 -40 -20 -18 35Минимальный элемент №12 равен -40-20 -18 35 -28 1 28 39 43 48 -7 -26 50 39 -24 -40
    • Автор:

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

Войти через Google

или

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

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

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