Найти наибольшее значение среди средних значений для каждой строки матрицы. Выполнить обработку элементов прямоугольной матрицы А, имеющей N строк и М столбцов — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
INPUT "Input number of rows: ",N
INPUT "Input number of cols: ",M
DIM Arr(1 TO N, 1 TO M)
max = 0
max_i = 0
RANDOMIZE TIMER
FOR i = 1 TO N
    x = 0
    FOR j = 1 TO M
        Arr(i, j) = FIX(RND * 101) - 50
        x = x + Arr(i, j)
    NEXT
    x = x / M
    IF x > max THEN
        max = x
        max_i = i
    END IF
NEXT
PRINT "Maximal middle value " + STR$(max) + " is in line #" + STR$(max_i)

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