CLS
PRINT "Obnulenie maximalnych elementov v massive"
1 : PRINT "Zadajte coolichestvo elementov...";
INPUT "", n
IF INT(n) <> n AND n <= 0 THEN
PRINT "Vy vveli drobnoe otrizanelnoe chislo"
GOTO 1
END IF
IF INT(n) <> n THEN
PRINT ""Vy vveli drobnoe chislo""
GOTO 1
END IF
IF n <= 0 THEN
PRINT "Vy vveli otrizanelnoe chislo"
GOTO 1
END IF
DIM a(n)
FOR x = 1 TO n
IF n = 1 THEN PRINT "Massiv sostoit iz odnogo chisla": END
NEXT x
PRINT "Vvedite elementy massiva"
FOR x = 1 TO n
PRINT x; "element...";
INPUT "", a(x)
NEXT x
k = 1
FOR x = 1 TO n - 1
IF a(x) = a(x + 1) THEN k = k + 1
NEXT x
IF k = n THEN PRINT "Massiv sostoit iz odinakovych chisel": END
max = a(1)
FOR x = 1 TO n
IF a(x) > max THEN max = a(x)
NEXT x
PRINT "Maxsimalnyi element v massive ="; max
PRINT "obnulen";
FOR x = 1 TO n
IF a(x) = max THEN
Print tab(9);
PRINT  x; "element v massive"
a(x) = 0
END IF
NEXT x
FOR x = 1 TO n
PRINT a(x);
NEXT x