Question

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

Answer 1

PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var a := ReadArrReal(ReadInteger('n='));

 a[a.IndexMax] := 0;

 a.Println

end.

n= 10

-14.75 -62.2 20.7 53.01 -28.25 18.04 29.35 -29.21 53.01 -63.53

-14.75 -62.2 20.7 0 -28.25 18.04 29.35 -29.21 53.01 -63.53