Составте программу формирования из массива А двух массивов, в которых первый…

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; Beginclrscr; 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.