В двумерном массиве найти наименьшее значение среди отрицательных элементов. Записать в качестве последнего элемента — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
INPUT n
INPUT m
DIM a(n,m)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1to m
a(i,j) = INT(RND(1)*10)-5
IF a(i,j)<min THEN min = a(i,j)
? a(i,j);
NEXT
?
NEXT
IF min<0 THEN a(n,m)=min
?
?
FOR i = 1 TO n
FOR j = 1 TO m
? a(i,j);
NEXT
?
NEXT

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