7. Создать массив случайных чисел. Вывести. Найти минимальный элемент и его индекс. Вывести. Вывести массив таким образом: сначала те элементы массива, которые идут за минимальным, затем те элементы, которые - перед минимальным включая и сам минимальный элемент. (на ПАСКАЛЕ)
Приложения:
![](https://st.uroker.com/files/c8e/c8e3880922881e664db7780d3e8f8d49.png)
Ответы
Ответ дал:
0
// 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]).Println
end.
Пример
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
// Внимание! Если программа не работает, обновите версию!
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]).Println
end.
Пример
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
Вас заинтересует
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад