Question

Дан целочисленный массив из 30 элементов. Элементы массива могут принимать целые значения от 0 до 10 000 включительно. Опишите на одном из языков программирования алгоритм, который находит все минимальные значения и заменяет их на максимальные. Гарантируется, что в массиве есть хотя бы два разных элемента. В качестве результата необходимо вывести измененный массив, каждый элемент массива выводится с новой строчки. Например, для массива из восьми элементов:
29 4 115 7 195 25 4 106
программа должна вывести (по одному числу в строке) числа:
29 195 115 7 195 25 195 106

Паскаль
const N = 30;
var a: array [1..N] of longint;
i, j, k: longint;
begin
for i := 1 to N do
readln(a[i]);
...
end.

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrInteger(3);

 a.Println;

 var (mx, mn) := (a.Max, a.Min);

 a.Transform(p -> p = mn ? mx : p);

 a.PrintLines

end.