Дано два одномерных массива a и b. заменить местами максимальные элементы массивов a и b. использовать процедуру нахождения максимального элемента массива. преобразовать эту программу для двумерного массива.

//pascal abc.net v3.1 сборка 1172 //одномерные const   n=10;   type   ty=array[1..n] of integer; var   ara,arb: ty;   i,j,max,maxia,maxib: integer;   procedure maxs(ar: ty; var max,maxi: integer);   var   i: integer;   begin   for i: =1 to n do     if max< ara[i] then           begin             maxi: =i;             max: =ar[i];           end;   end; begin   randomize;   max: =-1;   writeln('array a: ');     for i: =1 to n do       begin         ara[i]: =random(100);         write(ara[i]: 4);       end;   maxs(ara,max,maxia);   writeln;   max: =-1;   writeln('array b: ');     for i: =1 to n do       begin         arb[i]: =random(100);         write(arb[i]: 4);       end;   maxs(arb,max,maxib);     j: =ara[maxia];     ara[maxia]: =arb[maxib];     arb[maxib]: =j;   writeln;   writeln('final array a: ');   for i: =1 to n do   write(ara[i]: 4);   writeln;   writeln('final array b: ');   for i: =1 to n do   write(arb[i]: 4); end. //двумерные const   n=10; type   ty=array[1..n,1..n] of integer; var   ara,arb: ty;   i,j,max,maxia,maxib,maxja,maxjb: integer;   procedure maxs(ar: ty; var max,maxi,maxj: integer);   var   i,j: integer;   begin   for i: =1 to n do     for j: =1 to n do       if max< ara[i,j] then                 begin                   maxi: =i;                   maxj: =j;                   max: =ar[i,j];                 end;   end;   begin   randomize;   max: =-1;   writeln('matrix a: ');     for i: =1 to n do       begin       writeln;         for j: =1 to n do           begin;             ara[i,j]: =random(100);                             write(ara[i,j]: 4);               end;       end;   maxs(ara,max,maxia,maxja);   writeln;   max: =-1;   writeln('matrix b: ');     for i: =1 to n do       begin       writeln;         for j: =1 to n do           begin;             arb[i,j]: =random(100);               write(arb[i,j]: 4);               end;       end;   maxs(arb,max,maxib,maxjb);   j: =ara[maxia,maxja];   ara[maxia,maxja]: =arb[maxib,maxjb];   arb[maxib,maxjb]: =j;   writeln;   writeln('final matrix a: ');   for i: =1 to n do   begin     writeln;     for j: =1 to n do     write(ara[i,j]: 4);   end;   writeln;   writeln('final matrix b: ');   for i: =1 to n do   begin     writeln;     for j: =1 to n do     write(arb[i,j]: 4);   end; end. пример работы(одномерный): array a:   11  83  41  30    0  23  14  41  93  66array b:   53  40  58  40  56  17  98  33  90    6final array a:   11  83  41  30    0  23  14  41  90  66final array b:   53  40  58  40  56  17  98  33  93    6

19 (10cc)=16+2+1=10011 (10cc) 31 (10cc)= 32-1 =11111 (2cc);   ! 31=00000 31 | ! 31=11111 19& 31 | 19& ! 31= 19& (31 | ! 31)=19=10011 15 (10cc)=16-1=1111 (2cc) 15|15& 19= 1111 |1111 & 10011=1111 31& (15 | 15& 19)=11111 & 1111=1111 19^19=10011 ^10011 =00000 23=16+4+2+1=10111 (2cc) 00000^10111=10111 10111 | 1111=11111 (2cc) = 31 (10cc) ответ 31