В матрицах х (8,8), у (9,9) и z (10,10) найти максимальные и минимальные элементы в каждой строке и их порядковые номера — QBasic(Бейсик)

Аналогично массив y, z с другой размерностью

n = 8
DIM x(n, n)
FOR i = 1 TO n
    FOR j = 1 TO n
        INPUT x(i, j)
    NEXT
NEXT

FOR i = 1 TO n
    min = x(i, 1): max = x(i, 1): jmin = 1: jmax = 1
    FOR j = 2 TO n
        IF x(i, j) > max THEN max = x(i, j): jmax = j
        IF x(i, j) < min THEN min = x(i, j): jmin = j
    NEXT j
    PRINT "Maksim element stroki #"; i; "="; max; " ego koordinati:("; i; ","; jmax; ")"
    PRINT "Minim element stroki #"; i; "="; min; " ego koordinati:("; i; ","; jmin; ")"
NEXT i

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

Leave a Comment