В двумерном массиве найти минимальный элемент и указать его номер- 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
24
25
DIM A(10, 10)
RANDOMIZE TIMER
FOR I = 1 TO 10
FOR J = 1 TO 10
A(I, J) = INT(RND * 101) - 50
NEXT J
NEXT I
MIN = A(1, 1)
IMIN = 1
JMIN = 1
FOR I = 1 TO 10
FOR J = 1 TO 10
IF A(I, J) < MIN THEN MIN = A(I, J): IMIN = I: JMIN = J
NEXT J
NEXT I
CLS
FOR I = 1 TO 10
FOR J = 1 TO 10
PRINT A(I, J);
NEXT J
PRINT
NEXT I
PRINT "Minimalnyj element="; MIN
PRINT "Nomer stroki="; IMIN
PRINT "Nomer stolbca="; JMIN

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

Leave a Comment