Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

инфа / yelf& / 19var / 4.3.3_19var

.txt
Скачиваний:
5
Добавлен:
11.06.2015
Размер:
1.1 Кб
Скачать
subroutine f1(x,n,sr)
integer n,i,j
real x(n,n),sum,sr
sum=0
do i=1,n
do j=1,n
sum=sum+x(i,j)
end do
end do
sr=sum/(n**2)
end


subroutine f2(x,n,jmax)
integer n,jmax,i,j,k,z
real x(n,n)
do j=1,n
k=0
do i=1,n
if (x(i,j).lt.0) then
k=k+1
end if
end do
if (j.eq.1) then
jmax=1
z=k
else
if (k.gt.z) then
jmax=j
z=k
end if
end if
end do
end


subroutine f3(x,n,jmax)
integer n,jmax,i,j
real x(n,n)
do j=(jmax+1),n
do i=1,n
if (x(i,j).lt.0) then
x(i,j)=abs(x(i,j))
end if
end do
end do
end


integer m,jmax1,i,j
real a(5,5),sr1
write(*,*)'Vvedite M'
read(*,*)m
write(*,*)'Vvedite matrix A(m,m)'
read(*,*)((a(i,j),j=1,m),i=1,m)
write(*,1)((a(i,j),j=1,m),i=1,m)
1 format ((6x,5(f5.1,2x)))
write(*,*)
call f1(a,m,sr1)
write(*,*)'Sr arifmet elementov matrici = ',sr1
call f2(a,m,jmax1)
write(*,*)'Bolwee chislo otric elementov soderwit stolbec nomer ',jmax1
write(*,*)
call f3(a,m,jmax1)
write(*,2) ((a(i,j),j=1,m),i=1,m)
2 format ((6x,5(f5.1,2x)))
write(*,*)
call f1(a,m,sr1)
write(*,*)'Sr arifmet elementov matrici = ',sr1
read(*,*)
end
Соседние файлы в папке 19var