Напишите программу на...

Напишите программу на Паскале.Из элнментов данного массива W[1..20]создать два новых массива, первый из которых содержит только положительные элементы, авторой только отрицательные.

 

VAR
   i: Integer;
   a, b: Array of Integer;
   W: Array [1..20] of Integer;
BEGIN
   SetLength(a, 1); SetLength(b, 1);

   For i := 1 to 20 do Read(W);

   For i := 1 to 20 do begin 
      If (W > 0) then begin  
         SetLength(a, Length(a)+1); a[Length(a)-1] := W; End;
      If (W < 0) then begin 
         SetLength(b, Length(b)+1); b[Length(b)-1] := W; End; End;

   Write('0 > ['); For i := 1 to Length(a)-2 do Write(a,','); Writeln(a[Length(a)-1],']');  
   Write('0 < ['); For i := 1 to Length(b)-2 do Write(b,','); Writeln(b[Length(b)-1],']');  
END.