{* Задача124 *}

REM basic

' Дан массив действительных чисел. Среди них есть равные. Найти первый максимальный элемент массива и заменить его нулем.


Const N = 10
 Dim A(N)
   DATA 1.1,  2, -10.4, 6, 3.5
   DATA  10, -4,    10, 2,   4
CLS
  For i = 1 To N
     READ A(i): PRINT A(i);
  Next
    Max = A(1)
  For i = 1 To N
     If A(i) > Max Then Max = A(i): k = i
  Next
  A(k) = 0: PRINT
  For i = 1 To N
     PRINT A(i);
  Next
End