Задана матрица F размера MxN.Определить столбец с наибольшим количеством целочисленных элементов.Вычислить сумму отрицательных элементов матрицы — QBasic(Бейсик)

INPUT "vvedite kol-vo strok ", m
INPUT "vvedite kol-vo stolbcov ", n
DIM f(m, n)
RANDOMIZE TIMER
PRINT "massiv"
FOR i = 1 TO m
    FOR j = 1 TO n
        f(i, j) = INT(RND * 50) / 2 - 10
        PRINT f(i, j);
    NEXT
    PRINT
NEXT
FOR j = 1 TO n
    kol = 0
    FOR i = 1 TO m
        IF f(i, j) = INT(f(i, j)) THEN kol = kol + 1
        IF f(i, j) < 0 THEN sum = sum + f(i, j)
    NEXT
    IF kol > max THEN max = kol: nom = j
NEXT
PRINT "naibolshee kol-vo celyh elementov v stolbce nomer "; nom
PRINT "summa otricatelnyh elementov="; sum

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

Leave a Comment