Логическое выражение: f=avb < -> инверсия(a& b)

x xor y

т.е. not(x< -> y)

Var a: array[1..1000,1..1000] of integer; m,n,mi,mj: integer; begin write('m(1..1000) = '); readln(m); write('n(1..1000) = '); readln(n); for var i: = 1 to m do       begin       for var j: = 1 to n do               begin               a[i,j]: =random(1,m*n);               write(a[i,j],' ')               end;       writeln;       end; mi: =m; mj: =n; for var i: = 1 to m do       for var j: = 1 to n do               if a[mi,mj]< a[i,j] then                     begin                     mi: =i;                     mj: =j                     end; writeln('max(a): a[',mi,',',mj,'] = ',a[mi,mj]); end.

Алг массив нач   цел n = 30   целтаб a[1: n]   цел i, k, b   лог b1, b2     нц для i от 1 до n     вывод "a[",i,"] = "     ввод a[i]   кц   вывод нс     b1: =да   b2: =да   нц для i от 1 до n-1     если a[i]> a[i+1] то       b1: =нет     все     если a[i]< a[i+1] то       b2: =нет     все   кц   если b1=да то       вывод "массив по возрастанию", нс   все   если b2=да то       вывод "массив по убыванию", нс   все   k: =0   нц для i от 1 до n     если a[i]> 9 то       k: =k+1     все   кц   вывод "k = ",k, нс   нц для i от 1 до div(n,2)     b : = a[i]     a[i] : = a[div(n,2)+i]     a[div(n,2)+i] : = b   кц   вывод "измененный массив: ", нс   нц для i от 1 до n     вывод a[i], " "   кц кон