program prog dimension A(5,5), C(5) integer A,i,j, min,max,R,C logical fl R=70 !ввод матрицы А A(1,1) = 1 A(1,2) = -4 A(1,3) = 5 A(1,4) = -1 A(1,5) = 6 A(2,1) = 4 A(2,2) = -9 A(2,3) = -1 A(2,4) = 3 A(2,5) = -1 A(3,1) = 7 A(3,2) = -1 A(3,3) = 9 A(3,4) = 2 A(3,5) = -1 A(4,1) = -9 A(4,2) = 3 A(4,3) = -8 A(4,4) = -6 A(4,5) = -4 A(5,1) = 5 A(5,2) = 3 A(5,3) = 1 A(5,4) = 7 A(5,5) = -6 fl = .true. do i = 1,5 !находим минимальный и максимальный элеме Pascal 0 0 1674
program prog dimension A(5,5), C(5) integer A,i,j, min,max,R,C logical fl R=70 !ввод матрицы А A(1,1) = 1 A(1,2) = -4 A(1,3) = 5 A(1,4) = -1 A(1,5) = 6 A(2,1) = 4 A(2,2) = -9 A(2,3) = -1 A(2,4) = 3 A(2,5) = -1 A(3,1) = 7 A(3,2) = -1 A(3,3) = 9 A(3,4) = 2 A(3,5) = -1 A(4,1) = -9 A(4,2) = 3 A(4,3) = -8 A(4,4) = -6 A(4,5) = -4 A(5,1) = 5 A(5,2) = 3 A(5,3) = 1 A(5,4) = 7 A(5,5) = -6 fl = .true. do i = 1,5 !находим минимальный и максимальный элеме Pascal 0 0 1531
program prog dimension A(5,5), C(5) integer A,i,j, min,max,R,C logical fl R=70 !ввод матрицы А A(1,1) = 1 A(1,2) = -4 A(1,3) = 5 A(1,4) = -1 A(1,5) = 6 A(2,1) = 4 A(2,2) = -9 A(2,3) = -1 A(2,4) = 3 A(2,5) = -1 A(3,1) = 7 A(3,2) = -1 A(3,3) = 9 A(3,4) = 2 A(3,5) = -1 A(4,1) = -9 A(4,2) = 3 A(4,3) = -8 A(4,4) = -6 A(4,5) = -4 A(5,1) = 5 A(5,2) = 3 A(5,3) = 1 A(5,4) = 7 A(5,5) = -6 fl = .true. do i = 1,5 !находим минимальный и максимальный элеме Pascal 0 0 1553