Скачать программы Все программы автораЗадание № 34В данной действительной матрице размера N x M (N и M заданы) поменять местами строку, содержащую элемент с наибольшим значением, со строкой, содержащей элемент с наименьшим значением. Предполагается, что эти элементы единственные.
PROGRAM Prog; CONST N=10; M=10; VAR X:ARRAY[l..N, l..M] OF REAL; M,N,I,J,K,L: INTEGER; MIN,MAX,P:REAL; BEGIN WRITE('N и M =>' ) ; READLN(N, M) ; WRITELN (' ВВОД МАТРИЦЫ: ' ) ; FOR I:-1 TO N DO FOR J:=1 TO M DO READ(X[I,J]) ; MIN:=X[1,1]; MAX:=X[l,l]; FOR I:=1 TO N DO FOR J:=1 TO M DO BEGIN IF X[I,J]<=MIN THEN BEGIN MIN:=X[I,J]; K:=I; END ELSE BEGIN IF X[I,J]>=MAX THEN BEGIN MAX:=X[I,J]; L:=I; END; END; END; IF K<>L THEN BEGIN FOR J:=1 TO M DO BEGIN P:=X[K,J]; X[K,J]:=X[L,J]; X[L,J]:=P; END; END; WRITELN (' ВЫВОД МАТРИЦЫ: ' ) ; FOR I:=1 TO N DO BEGIN FOR J:=1 TO M DO WRITE(X[I,JJ:5); WRITELN; END END. |