Напишете программу ** языке Pascal, которая в массиве из 23 элементов заменяет последний...

Question

Напишете программу на языке Pascal, которая в массиве из 23 элементов заменяет последний элемент минимальным. Массив должен заполняться случайными значениями в интервале от 0 до 120

Answer 1

// PascalABC.NET 3.2, сборка 1374 от 10.01.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(23,0,120); a.Println;
  a[22]:=a.Min; a.Println
end.

Пример
26 32 46 4 64 40 17 60 35 1 34 39 113 61 26 53 92 89 11 10 98 90 34
26 32 46 4 64 40 17 60 35 1 34 39 113 61 26 53 92 89 11 10 98 90 1