Найти максимальный элемент массива A(N,M) — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
INPUT "N=", N
INPUT "m=", M
DIM A(N, M)
 
FOR i = 1 TO N
    FOR j = 1 TO M
        A(i, j) = FIX(RND * 11 - 5)
    NEXT
NEXT
 
max = A(1, 1)
FOR i = 1 TO N
    FOR i = 1 TO M
        IF A(i, j) > max THEN max = A(i, j)
    NEXT
NEXT
PRINT "max(A) = "; max

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

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

Leave a Comment