В массиве Х (n, m) определить сумму элементов выше неглавнойной диагонали. Среди них определить минимальный положительный элемент и его координаты. Если положительных элементов нет, вывести на экран сообщение «положительных элементов выше неглавных диагонали нет». — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT "vvedite n ", n
DIM a(n, n)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO n
    FOR j = 1 TO n
        a(i, j) = INT(RND * 20) - 10
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
min = 1E+38
imin = 0
jmin = 0
FOR i = 1 TO n
    FOR j = 1 TO n
        IF i + j <= n THEN s = s + a(i, j): IF a(i, j) < min AND a(i, j) > 0 THEN min = a(i, j): imin = i: jmin = j
    NEXT
NEXT
PRINT "summa="; s
IF imin = 0 THEN PRINT "polojitelnyh net" ELSE PRINT "min="; min; " stroka="; imin; " stolbec="; jmin

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment