С генерировать одновременно как отрицательные так и положительные числа в массиве.

[Leshii]

Program Mas;
Uses crt;
const dd=30;
Type
    Massiv = Array [1..100] Of integer;
Var
   Mass: Massiv;
    i, n : Integer;

Procedure Mimelem (N:integer;Mass:Massiv);
var min:integer;
   begin
    min:=Mass[1];
    for i:=1 to n do begin
        if min>Mass[i] then min:=Mass[i];
    end;
    writeln('Minimalniy element: ',min:3);
    writeln;
   end;

Procedure Absolut (N:integer;Mass:Massiv);
var ser:real;  {seredne arufmetu4ne za absolut velu4unoy}
    sum:real;
   begin
    sum:=0;
    for i:=1 to n do begin
       if Mass[i]<0 then begin
          sum:=sum+Mass[i];
          ser:=abs(sum/n)
       end;
    end;
    writeln(sum:1:2);
    writeln(ser:1:2);
   writeln;
   end;

Begin
  clrscr;
  randomize;
  Write ('Vveditb rozmirnist masuvy (ale ne ,bilshe nig 100) : ');
  ReadLn (n);
  Writeln('Vvedena poslidovnist 4usel');
  for I:=1 To n Do Begin
    Mass[i]:=-9+random(dd-1);
    write(Mass[i]:3);
  End;
writeln;
Mimelem(N,Mass);
Absolut(N,Mass);
readln;
end.

Разобрался и убёг.Кому надо юзайте.)