Нужно написать программу на языке паскаль. дан массив - вопрос №9446312 от Маринааамурр 03.06.2022 08:54

Question

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

Маринааамурр · 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