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

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

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

Leave a Comment