Задана матрица R(N,M). Поменять местами первую и последнюю строки. В полученной матрице найти минимальный элемент и его индекс в новой матрице — 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
26
27
28
29
INPUT"vvedite kol-vo strok ",n
INPUT"vvedite kol-vo stolbcov ",m
RANDOMIZE TIMER
PRINT "ishodnaya matrica"
FOR i=1 TO n
FOR j=1 TO m
r(i,j)=INT(RND*20)
PRINT r(i,j);
NEXT
PRINT
NEXT
FOR j=1 TO m
SWAP r(1,j),r(n,j)
NEXT
minx=1
miny=1
FOR i=1 TO n
FOR j=1 TO m
IF r(i,j)<r(minx,miny)THEN minx=i:miny=j
NEXT
NEXT
PRINT"novaya matrica"
FOR i=1 TO n
FOR j=1 TO m
PRINT r(i,j);
NEXT
PRINT
NEXT
PRINT "indeksy min elementa: stroka";minx;" stolbec";miny

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

Leave a Comment