Question

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

Answer 1

// PascalABC.NET 3.0, сборка 1088
begin
  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