INPUT"vvedite kol-vo elementov ",n
DIM b(n)
RANDOMIZE TIMER
PRINT"massiv"
FOR i=1 TO n
b(i)=INT(RND*20)
PRINT b(i);
NEXT
PRINT
nmax=1
FOR i=1 TO n
IF b(i)>b(nmax) THEN nmax=i
NEXT
PRINT"maximalnyj element=";b(nmax);" ego nomer=";nmax