Объявить двумерный массив 4x4.заполнить случайными числами (-10; 10). вывести массив .найти наименьший элемент и заменить его 0.вывести массив.

begin

 Writeln('*** Исходный массив ***');

 var a := MatrRandom(4, 4, -10, 10);

 a.Println(4);

 Writeln('*** Полученный массив ***');

 var e := a.ElementsWithIndexes.MinBy(t -> t[0]);

 a[e[1], e[2]] := 0;

 a.Println(4)

end.