{* Задача125 *}

REM basic

' Даны действительные числа a1,a2,...,an. Среди них есть положительные и отрицательные. Заменить нулями те числа, величина которых по модулю больше максимального числа (|ai|>max{a1,a2,...,an}).


CLS
INPUT "vvedite n"; n
Dim a(n)
For i = 1 To n
    PRINT "vvedite a("; i; ")";
    INPUT a(i)
Next
For i = 1 To n
    PRINT a(i);
Next
max = a(1)
For i = 1 To n
    If a(i) > max Then max = a(i)
Next
For i = 1 To n
    If ABS(a(i)) > max Then a(i) = 0
Next
PRINT: PRINT String$(n * 5, 196)
For i = 1 To n
    PRINT a(i);
Next
End