Program Eclater_tab;
Type
Tab = Array [1..50] of Integer;
Var T, TN, TP : Tab;
n, i, j, k : Integer;
Begin
Repeat
Writeln ('Saisir un entier');
Readln (n);
Until (n>=10) and (n<=50);
Writeln (‘Saisir les ', n, ' éléments de T’);
For i:=1 To n Do
Readln (T[i]);
j := 0;
k := 0;
For i := 1 To n Do
If T[i] < 0 Then
Begin
j := j+1;
TN[j] := T[i];
End
Else
Begin
k := k+1;
TP[k] := T[i];
End;
For i := 1 To j Do Write (TN[i]:4);
Writeln;
For i := 1 To k Do Write (TP[i]:4);
End.
UHJvZ3JhbSBFY2xhdGVyX3RhYjsKVHlwZQpUYWIgPSBBcnJheSBbMS4uNTBdIG9mIEludGVnZXI7ClZhciBULCBUTiwgVFAgOiBUYWI7Cm4sIGksIGosIGsgOiBJbnRlZ2VyOwpCZWdpbiAKUmVwZWF0CldyaXRlbG4gKCdTYWlzaXIgdW4gZW50aWVyJyk7ClJlYWRsbiAobik7ClVudGlsIChuPj0xMCkgYW5kIChuPD01MCk7CldyaXRlbG4gKOKAmFNhaXNpciBsZXMgJywgbiwgJyDDqWzDqW1lbnRzIGRlIFTigJkpOwpGb3IgaTo9MSBUbyBuIERvClJlYWRsbiAoVFtpXSk7CmogOj0gMDsKayA6PSAwOwpGb3IgaSA6PSAxIFRvIG4gRG8KSWYgVFtpXSA8IDAgVGhlbiAKQmVnaW4KaiA6PSBqKzE7ClROW2pdIDo9IFRbaV07CkVuZApFbHNlCkJlZ2luCmsgOj0gaysxOwpUUFtrXSA6PSBUW2ldOwpFbmQ7CkZvciBpIDo9IDEgVG8gaiBEbyBXcml0ZSAoVE5baV06NCk7CldyaXRlbG47CkZvciBpIDo9IDEgVG8gayBEbyBXcml0ZSAoVFBbaV06NCk7CkVuZC4=