Элемент матрицы назовем седловой точкой, если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или, наоборот, является наибольшим в своей строке и наименьшим в своем столбце. для заданной целой матрицы размером n*m напечатать индексы всех ее седловых точек. если не сложно, напишите как можно паскаль

//FPC 2.6.4
const
m = 3; n = 3;
var
  a   : array[1..n, 1..m] of integer;
  max1: array[1..n] of integer;
  min1: array[1..n] of integer;
  max2: array[1..m] of integer;
  min2: array[1..m] of integer;
  i, j, min, max, count: integer;
begin
  for i:=1 to n do
    for j:=1 to m do
    begin
    write ('Введите элемент матрицы [', i, ', ', j, ']: ');
    readln (a[i, j]);
    end;
 
 for i:=1 to n do
  begin
  min:=a[i, 1]; max:=a[i, 1];
    for j:=2 to m do
    begin
    if a[i, j]<min then min:=a[i, j];
    if a[i, j]>max then max:=a[i, j];
    end;
  min1[i]:=min; max1[i]:=max;
  end;
 
  for j:=1 to m do
  begin
  min:=a[1, j]; max:=a[1, j];
    for i:=2 to n do
    begin
    if a[i, j]<min then min:=a[i, j];
    if a[i, j]>max then max:=a[i, j];
    end;
  min2[j]:=min; max2[j]:=max;
  end;

writeln;
writeln ('Введенная матрица: ');
for i:=1 to n do
begin
  for j:=1 to m do write (a[i, j]:6);
writeln;
end;
writeln;
count:=0;
  for i:=1 to n do
    for j:=1 to m do
      if ((a[i, j]=max1[i]) and (a[i, j]=min2[j]))
      or ((a[i, j]=max2[j]) and (a[i, j]=min1[i])) then
      begin
        writeln ('Седловая точка: [', i, ', ', j, ']');
        inc (count);
      end;
writeln ('Всего седловых точек: ', count);
end.

2. exex.txt

Объяснение:

Маска: *ex??.tx*

Расширение файла (после точки) должно иметь вид tx* (буквы tx и после них любая последовательность символов). Файлы 1. exex.tex и 3. my_ex.tex не подходят под это условие, т.к. у них в расширении между буквами tx стоит буква e.

Имя файла (до точки) должно иметь вид *ex?? (любая последовательность символов, буквы ex и после них два любых символа). Файл my_ex.txt не подходит под это условие, т.к. после букв ex стразу стоит точка и начинается расширение, т.е. нет указанных в маске двух любых символов.

Файл 2. exex.txt подходит под все условия (перед первыми буквами ex ничего нет, т.е. это пустая последовательность символов; после первых букв ex идут две буквы ex, т.е. это два любых символа; расширение имеет вид txt, т.е. это буквы tx и буква t - любая последовательность символов)

X = 5, Y = 13

Объяснение:

X:=18  // переменной X присвоили значение 18

Y:=5  // переменной Y присвоили значение 5

T:=Y // переменной T присвоили значение переменной Y, но Y = 5, следовательно, переменная T после присвоения содержит значение 5

Y:=X mod Y  // Операция mod находит остаток от деления X на Y, следовательно, в переменную Y записывается результат выполнения, то есть остаток от деления 18 на 5, а именно число 3.

X:=T  // переменной X присвоили значение переменной T, то есть X = 5

Y:=y+2*T // Y =3 + 2*5 = 3+ 10 = 13