0 / 0 / 0
Регистрация: 23.01.2014
Сообщений: 8
1

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

02.11.2015, 02:03. Показов 2230. Ответов 1
Метки нет (Все метки)

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

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


Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.11.2015, 02:03
Ответы с готовыми решениями:

Найти сумму элементов матрицы и подсчитать число ее строк
1. Найти сумму элементов матрицы и подсчитать число ее строк, в пределах каждой из которых элементы...

Найти сумму элементов матрицы и подсчитать число её строк
доброго всем вечера, есть задачка: &quot;Найти сумму элементов матрицы и подсчитать число её строк, в...

Найти сумму элементов матрицы и подсчитать число таких ее строк!
Найти сумму элементов матрицы и подсчитать число таких ее строк, в пределах каждой из которых...

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

1
Модератор
Эксперт функциональных языков программированияЭксперт Python
30445 / 16818 / 3461
Регистрация: 12.02.2012
Сообщений: 28,186
Записей в блоге: 5
03.11.2015, 13:09 2
Считать число строк, которые упорядочены, нужно в отдельном цикле. А у тебя в стр. 11 при j=3 будет обращение за пределами массива. Короче:

Fortran
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
            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
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.11.2015, 13:09

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

Найти сумму элементов строк матрицы [A], размером NxM. Вывести на печать исходную матрицу и сумму строк.
Найти сумму элементов строк матрицы , размером NxM. Вывести на печать исходную матрицу и сумму...

Найти сумму наименьших элементов нечетных строк и наибольших элементов четных строк матрицы
Добрый день! Дана матрица размером N. Найти сумму наименьших элементов ее нечетных строк и...

Найти сумму наименьших элементов нечетных строк и наибольших элементов четных строк матрицы
Дана матрица размером 6 x 6. Найти сумму наименьших элементов ее нечетных строк и наибольших...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru