Дан одномерный массив A[N]. Удвоить минимальный элемент массива и уменьшить в два р?

Дан одномерный массив A[N]. Удвоить минимальный элемент массива и уменьшить в два р??за максимальный элемент массива
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.1, сборка 1192 от 07.03.2016 begin   var a:=ArrRandom(ReadInteger('n='),10,50);   a.Println;   var imax:=a.IndexMax; a[imax]:=a[imax] div 2;   a[a.IndexMin]*=2;   a.Println end. Тестовое решение: n= 10 39 23 22 15 37 41 16 44 41 31 39 23 22 30 37 41 16 22 41 31
Не нашли ответ?
Ответить на вопрос
Похожие вопросы