народ кто знает фортран помогите. что это за ошибка и что нужно исправить?
run-time error F6509: read
сама программа вот:
dimension a(4,4)
real a
integer i, j, pp1, num, c, pp2
write (*,*) 'zadayte matricu'
read (*,12) ((a(i,j), j=1, 4), i=1, 4)
12 format (1x, 'ishodnaya matica',/,4(1x, f5.1))
write (*,*) 'zadat M'
read (*,*) m
num=pp1(a, 4)
write (*,*) 'nomer stolbtsa s max summ otric elementov', num
if (num>=2) then
write (*,*)'etot stolbets v pravoy polovine'
c=pp2(a, 4, m)
write (*,*) 'nomer 1-go elementa < m=', c
else
write (*,*) 'etot stolbets v levoy polovine'
call pp3(a, 4)
write (*,13) ((a(i,j), j=1, 4), i=1, 4)
13 format (1x, 'izmenennaya matrica', /, 4(1x, f5.1))
end if
end
integer function pp1(a, n)
dimension a(n,n)
real a, s, smax
integer n, i, j, num
num=0
smax=-100000
do j=1, n, 1
s=0
do i=1, n, 1
if (a(i,j)<0) then
s=s+a(i,j)
end if
end do
if (s>smax) then
smax=s
num=j
end if
end do
pp1=num
end
integer function pp2(a, n, m)
dimension a(n,n)
real a
integer n, i, j, c, m
logical p
p=.false.
i=1
do while (i<=n .and. .not.p)
do j=1, n, 1
if (a(i,j)
если нижняя часть не отображается то вот:
integer function pp2(a, n, m)
dimension a(n,n)
real a
integer n, i, j, c, m
logical p
p=.false.
i=1
do while (i<=n .and. .not.p)
do j=1, n, 1
if (a(i,j)