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.

Answer 2

Конечно, вот программа на PascalABC, которая находит наименьший элемент двухмерного массива А(N,M), больший заданного числа T:

pascalCopy code
program MinElementAboveT;

const
  N = 3; // Количество строк
  M = 4; // Количество столбцов
  T = 10; // Заданное число T

var
  A: array[1..N, 1..M] of Integer;
  i, j: Integer;
  minElement: Integer;
  found: Boolean;

begin
  // Ввод элементов массива
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      Write('Введите элемент A[', i, ',', j, ']: ');
      ReadLn(A[i, j]);
    end;
  end;

  // Поиск наименьшего элемента больше T
  found := False;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      if (A[i, j] > T) and (not found or (A[i, j] < minElement)) then
      begin
        found := True;
        minElement := A[i, j];
      end;
    end;
  end;

  // Вывод результата
  if found then
    WriteLn('Наименьший элемент больше', T, ' : ', minElement)
  else
    WriteLn('В массиве нет элементов больше', T);
end.

Программа позволит вам ввести элементы двухмерного массива и найдет наименьший элемент, больший заданного числа T.