Question

Складіть програму для заміни найбільшого елемента послідовності з 10 чисел 0.

Answer 1

Ответ:

begin

 var a:=ArrRandom(10,1,50);

 a.Println;

 var b:=a.Max;

 a.Replace(b,0);

 a.Println;

end.