введите с клавиатуры одномерный массив D(N), элементами которого являются положительные и отрицательный целые числа. Сформируйте новый массив B(V) из положительных элементов и С(М) из отрицательных элементов. В массиве D(V) определите максимум, а в массиве С(М)-минимум.

program asd;Var B,C,D:array[1..2500] of integer;i,max,min,n:integer;BEGINWriteln('Введите размерность одномерного массив D: ');Readln(n);max:=D[1];for i:=1 to n do beginWrite('Введите D[',i,']: '); Readln(D[i]);If max<D[i] then max:=D[i];end; Writeln('Максимальный элемент в массиве: ',max); Writeln('Положительный массив B из D: '); min:=D[1]; For i:=1 to n do  begin  If D[i]>0 then      B[i]:=D[i];   If D[i]<0 then      C[i]:=D[i];   If min>C[i] then    min:=C[i];     Write(B[i]:4);      end; writeln;  Writeln('Отрицательный массив C из D: '); For i:=1 to n do  begin Write(C[i]:4); end; Writeln();  Writeln('Минимальный элемент в массиве С: ',min);END.