Впроизвольной целочисленной матрице поменять столбцы, содержащие минимальные и максимальные значения. все элементы различны. паскаль.

Const m=4; n=6; var  a: array[1..m,1..n] of integer; i,j,max,jmax,min,jmin,t: integer; begin randomize; writeln('исходный массив: '); for i: =1 to m do   begin   for j: =1 to n do   begin     a[i,j]: =random(100);     write(a[i,j]: 4);   end;   writeln;   end; max: =a[1,1]; jmax: =1; min: =a[1,1]; jmin: =1; for i: =1 to m do   for j: =1 to n do   begin   if a[i,j]> max then begin max: =a[i,j]; jmax: =j; end;   if a[i,j]< min then begin min: =a[i,j]; jmin: =j; end;   end; writeln('max = ',max,' jmax = ',jmax); writeln('min = ',min,' jmin = ',jmin); for i: =1 to m do   begin   t: =a[i,jmax]; a[i,jmax]: =a[i,jmin]; a[i,jmin]: =t;   end; writeln('полученный массив: '); for i: =1 to m do   begin   for j: =1 to n do write(a[i,j]: 4);   writeln;   end; end. пример: исходный массив:   89   80   1   6   3   15   84   2   17   5   89   71   89   68   90   97   75   40   12   30   60   98   75   42 max = 98 jmax = 4 min = 1 jmin = 3 полученный массив:   89   80   6   1   3   15   84   2   5   17   89   71   89   68   97   90   75   40   12   30   98   60   75   42

Phyton ax = int( ay = int( bx = int( by = int( if (ax*ax + ay*ay > bx*bx + by*by):         print("точка б ближе") elif (ax*ax + ay*ay  <   bx*bx + by*by):         print("точка а ближе") else:         print("точки равноудалены")