Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.