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

Question

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

Comments

Если имеется в виду PascalABС.NET, в нем запустится программа, написанная на любом паскале: Turbo Pascal, Borland Pascal, Object Pascal, Pascal ABC, PascalABC.NET, и также консольные приложения Borland Delphi и Lazarus.

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.

---