Нужно написать программу на языке паскаль. дан - вопрос №9446312 от arseniy0114 09.05.2023 09:33

Question

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

arseniy0114 · Answer

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