Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- program sh30
- integer m,n,i,j,c
- real A,B,T,x,y,max
- dimension A(9,9),B(9,9), H(9),T(9)
- ! ввод размера матрицы
- print*, 'vvedite razmer i'
- read*, i
- print*, 'vvedite razmer j'
- read*, j
- !ввод элементов
- do m=1,i
- do n=1,j
- print*, 'vvedite' , m,'X',n
- read*, A(m,n)
- enddo
- enddo
- ! печать матрицы
- do m=1,i
- print*, (A(m,n),n=1,j)
- enddo
- print*, '_________________________________________________'
- print*, A(2,2)
- print*, '_________________________________________________'
- !поиск максимальных элементов
- do n=1,i
- max=A(n,1)
- do m=1,j
- if(A(m,n)>max)then
- max=A(m,n)!максимальный элемент N столбца
- endif
- H(n)=max !передаю макс элементы в массив
- enddo
- enddo
- print*, H !печать массива
- print*, '_________________________________________________'
- c=0
- do m=1,i
- do n=1,j
- c=m+1
- if(H(m)<H(m+1))then !сортирую массив в порядке убывания
- x=H(m)
- H(m)=H(m+1)
- H(m+1)=x
- print*, m,'perestanovka zavershena'
- T=A(:,c)
- A(:,c)=A(:,m)
- A(:,m)=T
- print*, '_________________________________________________'
- !B(:,m)=A(:,c)
- ! else
- !B(:,m)=A(:,m)
- endif
- enddo
- enddo
- print*, H !печать массива
- print*, '_________________________________________________'
- !do n=1,9 !при условии перестановки местами элементов
- ! массива присваиваю столбец N матрицы А метрицt B на нужное место
- !B(m,n)=A(c,n)
- !enddo
- !else
- !do n=1,9 !при условии НЕ перестановки
- ! ц N матрицы А метрицt B на нужное место
- ! B(m,n)=A(m,n)
- !enddo
- !endif
- !enddo
- do m=1,i
- print*, (A(m,n),n=1,j)
- enddo
- print*, '_________________________________________________'
- end
Add Comment
Please, Sign In to add comment