1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | INPUT "vvedite razmer massiva ",n DIM a(n),b(n) FOR i= 1 TO n INPUT "vvedite element ",a(i) NEXT PRINT "massiv" FOR i= 1 TO n PRINT a(i); NEXT PRINT nmax= 1 FOR i= 1 TO n IF a(i)> 0 THEN k=k+ 1 :b(k)=a(i) IF a(i)>a(nmax) THEN nmax=i NEXT PRINT"nomer maximalnogo elementa=";nmax PRINT"novyj massiv" FOR i= 1 TO k PRINT b(i); NEXT |