Question

Pascal написать программу обработки массива :Определить минимальный элемент массива. Сформировать массив А по формуле Ai=Xi-Xmin

Answer 1

PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018

Внимание! Если программа не работает, обновите версию!

begin

 var n := ReadInteger('Количество элементов массива:');

 var x := ReadArrInteger('Введите массив Х:', n);

 var xMin := x.Min;

 var a := x.Select(t -> t - xMin).ToArray;

 a.Println

end.

Пример

Количество элементов массива: 5

Введите массив Х: -18 42 0 -52 140

34 94 52 0 192