Pascal.Помогите пожалуйста с задачкой)Дан 1-мерный массив А(N), где N – заданное...

Question

Pascal.Помогите пожалуйста с задачкой)
Дан 1-мерный массив А(N), где N – заданное натуральное число. Массив получен методом генерирования случайных чисел. Заменить нулями элементы массива между минимальным и максимальным, кроме них самих. Распечатать полученный массив.

Answer 1

// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,10,99); a.Println;
  var imin:=0;
  var imax:=0;
  for var i:=1 to n-1 do
    if a[i]>a[imax] then imax:=i
    else
      if a[i]  if imin    for var i:=imin+1 to imax-1 do a[i]:=0
  else
    for var i:=imax+1 to imin-1 do a[i]:=0;
  a.Println
end.

Тестовое решение:
n= 15
38 62 15 47 50 69 74 10 62 47 68 89 28 13 50
38 62 15 47 50 69 74 10 0 0 0 89 28 13 50