Определить среднюю прибыль каждой фирмы за все месяцы и вывести ее, указав номер компании.

[AlexDolmat]

Информация о прибылях М фирм за N месяцев задана в виде таблицы:

[сфинкс]

RANDOMIZE TIMER 'firmz.bas
n = 5: m = 12: DIM f(n, m), p(n)
FOR i = 1 TO n: FOR j = 1 TO m
        f(i, j) = INT(RND * 88) + 10: p(i) = p(i) + f(i, j)
NEXT: PRINT i, p(i), p(i) / m: NEXT
FOR i = 1 TO n: FOR j = 1 TO m: PRINT f(i, j);: NEXT: PRINT: NEXT: END

из qb64 qbasic на другие языки переводим сами

результаты похожи на достоверные