Найти максимальный элемент среди элементов матрицы, расположенных ниже главной диагонали

@Tiaro · Регистрация: 03.11.2012

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

Дана квадратная матрица размерностью mxm.
Построить вектор из положительных элементов на главной диагонали. Найти максимальный элемент среди элементов, расположенных ниже главной диагонали.
помогите,а то у меня фигня какая-то выходит(пока что только вектор пыталась высчитать)
вот такую программу сделала:

QBasic/QuickBASIC

CLS
s = 0
INPUT "vvedite kolichestvo strok i stolbcov M ", m
DIM a(m, m)
FOR i = 1 TO m
    FOR j = 1 TO m
        a(i, j) = INT(RND * 50 - 25)
    NEXT
NEXT
PRINT "matrica "
FOR i = 1 TO m
    FOR j = 1 TO m
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
PRINT
PRINT "____________"
PRINT "vektor"
FOR i = 1 TO m
    IF a(i, i) > 0 THEN
        s = s + 1
    END IF
NEXT i
DIM b(s)
FOR l = 1 TO s
    FOR i = 1 TO m
        IF a(i, i) > 0 THEN
            b(l) = a(i, i)
            PRINT b(i)
        END IF
    NEXT i
NEXT l
END

Добавлено через 13 часов 54 минуты
Тему можно удалять.Я сделала программу.

Памирыч · 03.11.2012, 15:35

Сообщение от Tiaro

Тему можно удалять.Я сделала программу

Тему удалять нельзя.
А вот решение, которое Вы нашли - можно выложить для будущих "поколений"

@Tiaro · 03.11.2012, 16:06 **[ТС]**

Памирыч, Ну ок)

QBasic/QuickBASIC

CLS
INPUT "vvedite kolichestvo strok i stolbcov M ", m
PRINT "_____________________"
DIM a(m, m)
FOR i = 1 TO m
    FOR j = 1 TO m
        a(i, j) = INT(RND * 50 - 25)
    NEXT
NEXT
PRINT "matrica "
FOR i = 1 TO m
    FOR j = 1 TO m
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
PRINT
PRINT "_____________"
PRINT "vektor"
DIM b(m)
FOR i = 1 TO m
    IF a(i, i) > 0 THEN
        b(i) = a(i, i)
        PRINT b(i)
    END IF
NEXT i
max = -1E20
FOR i = 2 TO m
    FOR j = 1 TO (m - 1)
        IF max < a(i, j) THEN
            max = a(i, j)
        END IF
    NEXT j
NEXT i
PRINT
PRINT "MAX pod glavnoi diagonal'u= "; max
END

@кот Бегемот · 05.11.2012, 00:01

Сообщение от Tiaro

max = -1E20
FOR i = 2 TO m
FOR j = 1 TO (m - 1)
IF max < a(i, j) THEN max = a(i, j)
END IF
NEXT j
NEXT i

фигня.
Во-первых, если уж брать маленькое число, то max=-1E38
Во-вторых, проще было бы max=a(1,1)
в третьих, у вас опечатка в знаке >
в четвёртых:

QBasic/QuickBASIC

max=a(1,1)
FOR i=2 TO m
IF a(i,i)>max THEN max=a(i,i)
NEXT

всё

Памирыч Почетный модератор 21374 / 9108 / 1082 Регистрация: 11.04.2010 Сообщений: 11,014
	03.11.2012, 15:35	2
	Сообщение от Tiaro Тему можно удалять.Я сделала программу Тему удалять нельзя. А вот решение, которое Вы нашли - можно выложить для будущих "поколений" 0

Опции темы