Program Ranger_tab;
Type
Tab = Array [1..10] of Integer;
Var T, R : Tab;
i, j : Integer;
Begin
Writeln('Saisir les 10 éléments de T');
For i:=1 To 10 Do
Readln(T[i]);
j:=0;
For i := 1 To 10 Do
If T[i] >= 0 Then
Begin
j := j+1;
R[j] := T[i];
End;
For i := 1 To 10 Do
IF T[i] < 0 Then
Begin
j := j+1;
R[j] := T[i];
End;
For i := 1 To 10 Do
Write(T[i]:4);
Writeln;
For i := 1 To 10 Do
Write(R[i]:4);
End.
UHJvZ3JhbSBSYW5nZXJfdGFiOwpUeXBlClRhYiA9IEFycmF5IFsxLi4xMF0gb2YgSW50ZWdlcjsKVmFyIFQsIFIgOiBUYWI7CmksIGogOiBJbnRlZ2VyOwpCZWdpbgpXcml0ZWxuKCdTYWlzaXIgbGVzIDEwIMOpbMOpbWVudHMgZGUgVCcpOwpGb3IgaTo9MSBUbyAxMCBEbyAKUmVhZGxuKFRbaV0pOwpqOj0wOwpGb3IgaSA6PSAxIFRvIDEwIERvIApJZiBUW2ldID49IDAgVGhlbiAKQmVnaW4KaiA6PSBqKzE7ClJbal0gOj0gVFtpXTsKRW5kOwpGb3IgaSA6PSAxIFRvIDEwIERvIApJRiBUW2ldIDwgMCBUaGVuIApCZWdpbiAKaiA6PSBqKzE7ClJbal0gOj0gVFtpXTsKRW5kOwpGb3IgaSA6PSAxIFRvIDEwIERvCldyaXRlKFRbaV06NCk7CldyaXRlbG47CkZvciBpIDo9IDEgVG8gMTAgRG8KV3JpdGUoUltpXTo0KTsKRW5kLg==