Все элементы заданного одномерного массива уменьшить на величину равную наименьшему элементу данного массива.(ПАСКАЛЬ)

Все элементы заданного одномерного массива уменьшить на величину равную наименьшему элементу данного массива.(ПАСКАЛЬ)
Гость
Ответ(ы) на вопрос:
Гость
var a: array[1..100] of integer; n, min, i: integer; begin    readln(n);    for i := 1 to n do       read(a[i]);    min := a[1];    for i := 2 to n do       if min > a[i] then          min := a[i];    for i := 1 to n do       a[i] := a[i] - min;    for i := 1 to n do       write(a[i], ' '); end.
Гость
// PascalABC.NET 3.1, сборка 1179 от 29.02.2016 begin   var a:=ArrRandom(ReadInteger('n='),10,99);   a.Println;   var m:=a.Min;   for var i:=0 to a.Length-1 do a[i]-=m;   a.Println end. Тестовое решение: n= 13 90 37 52 21 77 74 75 75 43 98 92 16 90 74 21 36 5 61 58 59 59 27 82 76 0 74
Не нашли ответ?
Ответить на вопрос
Похожие вопросы