martinges спасиба большое тебе) помогите вот еще одну задачку: Определить все седловые точки (если таковые вообще имеются) в действительной матрице размера 5х6. Элемент матрицы называется седловой точкой, если он является одновременно наименьшим в своей строке и наибольшим в своем столбце. uses crt; var i,j,k,min,max,sedl_min,sedl_max:integer; a:array[1..5,1..6]of integer; BEGIN clrscr; for i:=1 to 5 do for j:=1 to 6 do read(a[i,j]); min:=a[1,1]; max:=a[1,1]; for j:=1 to 6 do begin for i:=1 to 5 do if a[i,j] begin min:=a[i,j]; sedl_min:=i; end; i:=sedl_min; max:=a[i,j]; for k:=1 to 6 do begin if a[i,k]>max then begin max:=a[i,k]; sedl_max:=k; end; end; if sedl_max=j then write('Седловые точки: a[',i,',',j,']=',a[i,j],' '); end; readkey; END. исправьте плз неправильно она чета работает