Найти сумму элементов матрицы - QBasic (27930)
Формулировка задачи:
Найти сумму элементов каждого столбца матрицы (n = 5; m = 6), и определить минимальную из полученных сумм. Заменить отрицательные элементы на главной диагонали, полученной суммой.
Ну суммы столбов я нахожу примитивным способом, но работает..
А вот как их все между собой пересравнить, ну чтоб опять километра кода не было...
Листинг программы
- Cls
- Dim a(5,6)
- For i=1 to 5: for j=1 to 6
- pRINT "Введите элемент"; i; ","; j
- INPUT a(i, j)
- Next j,i
- S1=0: s2=0: s3=0: s4=0: s5=0: s6=0
- For i=1 to 1: for j=1 to 6
- s1=s1+a(I;j)
- next j;i
- For i=2 to 2: for j=1 to 6
- S2=s2+a(I;j)
- next j;i
- For i=3 to 3: for j=1 to 6
- S3=s3+a(I;j)
- next j;i
- For i=4 to 4: for j=1 to 6
- S4=s4+a(I;j)
- next j;i
- For i=5 to 5: for j=1 to 6
- S5=s5+a(I;j)
- next j;i
Я не волшебник, я только учусь=)))
ну поменять через swap сделаю... наверно надо добавить мас dim s1,s2,s3,s4,s5 ?Решение задачи: «Найти сумму элементов матрицы»
textual
Листинг программы
- DIM A(5,6)
- FOR I=1 TO 5: FOR J=1 TO 6
- PRINT "Введите элемент"; i; ","; j
- INPUT a(i, j)
- NEXT j, i
- DIM B(5)
- FOR I=1 TO 5: FOR J=1 TO 6
- B(I)=B(I)+A(I,J)
- NEXT j, i
- MIN=B(1)
- FOR I=1 TO 4
- IF MIN>B(I+1) THEN MIN=B(I+1)
- NEXT i
- FOR I=1 TO 5: FOR J=1 TO 6
- IF I=J THEN a(I,J)=MIN
- NEXT j , i
- PRINT "Минимальная сумма="; MIN
- END
Объяснение кода листинга программы
В этом коде:
- Создается двумерный массив A размером 5x6 и заполняется пользователем.
- Создается одномерный массив B размером 5 и инициализируется нулями.
- В цикле суммируются элементы массива A и записываются в массив B.
- Находится минимальное значение в массиве B.
- В цикле элементы массива A заменяются на минимальное значение, если они равны.
- Выводится сообщение с минимальной суммой.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д