Question

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

Answer 1

PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018

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

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.