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

1

Ответы и объяснения

Лучший Ответ!
2014-01-10T02:51:31+04:00
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[i]);

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

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