Найти максимальный элемент вещественной матрицы и указать его координаты — Basic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
INPUT m
INPUT n
DIM a(m,n)
FOR i=1 TO m
FOR j=1 TO n
a=INT(RND(100))
NEXT
NEXT
FOR i=1 TO m
FOR j=1 TO n
PRINT a(i,j)," ";
NEXT
PRINT
NEXT
max=a(1,1)
x=1
y=1
FOR i=1 TO m
FOR j=1 TO n
IF a(i,j)>max THEN max=a(i):x=i:y=j
NEXT
NEXT
PRINT max,x,y

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

Leave a Comment