ЗАПОЛНИТЕ СЛУЧАЙНЫМИ ЧИСЛАМИ ЧЕЛОЧИСЛЕННЫЙ МАССИВ ИЗ 10 элементов.найти максимальный элемент массива и заменить его на число 0
Составьте задачу, пожалуйста

// PascalABC.NET 3.0, сборка 1088begin  var a:=ArrRandom(10,-20,20);  a.Println(',');  var m:=a.Max;  for var i:=0 to 9 do    if a[i]=m then a[i]:=0;  a.Println(',')end.Тестовое решение:-14,-7,15,-7,-11,7,4,1,-20,-15-14,-7,0,-7,-11,7,4,1,-20,-15