Question

Составьте программу нахождения наименьшего элемента двухмерного массива А(N,M), большего данного Т

Нужно, чтобы программа запустилась в PascalABC

Очень срочно!

Answer 1

begin

 var (n, m) := ReadInteger2('Укажите n и m:');

 var массив := MatrRandom(n, m, -99, 99);

 массив.Println;

 var t := ReadInteger('Введите T:');

 массив.ElementsByRow.Where(элемент -> элемент > t).Min.Print

end.