Составте программу формирования из массива А двух массивов, в которых первый замолнен отрицательными, а второй-положительными элементами.

Program Pr1;

uses crt;

var mas:array[1 ... 100] of integer;

pos:array[1 ... 100] of integer;

min:array[1 ... 100] of integer;

i, b, c:integer;

Begin

clrscr;

b:=0;

c:=0;

randomize;

for i:=1 to 100 do mas[i]:=-100+random (200) ;

for i:=1 to 100 do write (mas[i]) ;

writeln () ;

for i:=1 to 100 do if mas[i]>=0 then begin

b:=b+1;

pos[b]:=mas[i];

end

else begin

c:=c+1;

min[c]:=mas[i];

end;

writeln ('Polojitelnye') ;

for i:=1 to b do write (pos[i]) ;

writeln () ;

writeln ('Otricatylnye') ;

for i:=1 to c do write (min[i]) ;

end.