Задача. В массиве из N элементов до и после min-го поставить нули

Не очень нравится это решение, но работает:

const n = 10;

var

mas:array [1 ... n] of integer;

i, min, k:integer;

begin

for i: = 1 to n do

begin

mas[i]:=Random (100) ;

end;

writeln ('Полученный массив: ') ;

for i: = 1 to n do

write (mas[i]:4) ;

writeln;

writeln ('Результат выполнения задания: ') ;

min:=mas[1];

for i:=2 to n do

begin

if min>mas[i] then

begin

min:=mas[i];

k:=i;

end;

end;

for i:=1 to k-1 do

mas[i]:=0;

for i:=k+1 to n do

mas[i]:=0;

for i: = 1 to n do

write (mas[i]:4) ;

readln

end.

Полученный массив:

81 89 88 18 26 28 97 3 15 28

Результат выполнения задания:

0 0 0 0 0 0 0 3 0 0