Сгенерировать массив из N=10 случайных чисел {-20;95}, вывести. Найти минимальный и максимальный элементы и их индексы, вывести на следующей строчке. Поменять местами минимальный и максимальный элементы, вывести полученный массив на следующей строчке.
Приложения:
Ответы на вопрос
Ответил petyaGavrikov
0
begin
var a:=ArrRandom(10,-20,95); a.Println;
var imax:=a.IndexMax;
Println('max = ',a.Max,' imax = ',imax+1);
var imin:=a.IndexMin;
Println('min = ',a.Min,' imin = ',imin+1);
Swap(a[imin],a[imax]); a.Println;
end.
Пример:
56 76 -20 89 85 39 -5 39 -5 41
max = 89 imax = 4
min = -20 imin = 3
56 76 89 -20 85 39 -5 39 -5 41
var a:=ArrRandom(10,-20,95); a.Println;
var imax:=a.IndexMax;
Println('max = ',a.Max,' imax = ',imax+1);
var imin:=a.IndexMin;
Println('min = ',a.Min,' imin = ',imin+1);
Swap(a[imin],a[imax]); a.Println;
end.
Пример:
56 76 -20 89 85 39 -5 39 -5 41
max = 89 imax = 4
min = -20 imin = 3
56 76 89 -20 85 39 -5 39 -5 41
Новые вопросы