Найти сумму элементов матрицы и подсчитать число ее строк

@pawka97 · Регистрация: 23.01.2014

Author24 — интернет-сервис помощи студентам

Найти сумму элементов матрицы и подсчитать число ее строк, в пределах каждой из которых элементы упорядочены по возрастанию: Ai1<Ai2<...<Ain.

Первую часть я написал, где считает сумму, а вот вторая часть, про подсчёт кол-ва строк не получается.
Программа считает только количество элементов, удовлетворяющих данному условию.
Подскажите в чём проблема...

Fortran

dimension a(3,3)
real a,s
integer i,k
write(*,*) 'vvedite a'
read(*,*) ((a(i,j),j=1,3),i=1,3)
s=0
  do i=1,3,1
  k=0
    do j=1,3,1
    s=s+a(i,j)
      if(a(i,j)<a(i,j+1)) THEN
      k=k+1
      end if
     end do
   end do
write(*,*) 's=',s
write(*,*) 'k=',k
end

@Catstail · 03.11.2015, 13:09

Считать число строк, которые упорядочены, нужно в отдельном цикле. А у тебя в стр. 11 при j=3 будет обращение за пределами массива. Короче:

Fortran

            dimension a(3,3)
            real a,s
            integer i,k,p
            write(*,*) 'vvedite a'
            read(*,*) ((a(i,j),j=1,3),i=1,3)
C          Сумма
            s=0.0
            do i=1,3,1
                do j=1,3,1
                    s=s+a(i,j)
                end do
            end do            
C          Cтроки
            k=0        
            do i=1,3,1
                p=0
                do j=1,2,1
                    if (a(i,j) < a(i,j+1)) then
                      p=p+1
                    end if
                end do
                if p=2 then
                   k=k+1
                end if   
            end do
            write(*,*) 's=',s
            write(*,*) 'k=',k
            end

	03.11.2015, 13:09

Опции темы