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

Женя

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.