40 .(pascal). дан одномерный динамический массив a(n), заполненный случайными числами в диапазоне от -30 до 30. все отрицательные элементы до минимального обнулить. исходный и изменённый массивы вывести на экран в отдельных строках.

//pascal abc.net v3.0 сборка 1111 var   ar: array of integer;   n,i,min,mini: integer; begin randomize; min: =2147483647;   writeln('введите размерность: ');   readln(n);   setlength(ar,n);   writeln('array: ');   for i: =0 to n-1 do     begin     ar[i]: =random(-30,30);     write(ar[i]: 4);     if min> =ar[i] then       begin       min: =ar[i];       mini: =i;       end;     end;   for i: =0 to mini-1 do     if ar[i]< 0 then ar[i]: =0;   writeln;   writeln('final array: ');   for i: =0 to n-1 do     write(ar[i]: 4); end.пример ввода: 5пример вывода: array:   -3 -26   -2   18 -21final array:     0 -26   -2   18 -21