The author posted a question in Programming
Solve plz! in pascal? and got a better answer
Response from
uses CRT; const k=15; var i,n: Integer; x: array [1.k] of Integer; begin clrscr; for i:=1 to k do begin writex[,i,]= ; readln x[ i ] ; end; for i:=1 to k do begin if x[ i ] > 0 then write 1, else if x[ i ] < 0 then write -1, else write 0, ; end; readkey; end.
Response from 0[+++++]
uses CRT; const k=15; var i,n: Integer; x: array [1.k] of Integer; begin clrscr; for i:=1 to k do begin writex[,i,]= ; readln x[ i ] ; end; for i:=1 to k do begin if x[ i ] > 0 then write 1, else if x[ i ] < 0 then write -1, else write 0, ; end; readkey; end.
uses CRT; const k=15; var i,n: Integer; x: array [1.k] of Integer; begin clrscr; for i:=1 to k do begin writex[,i,]= ; readln x[ i ] ; end; for i:=1 to k do begin if x[ i ] > 0 then write 1, else if x[ i ] < 0 then write -1, else write 0, ; end; readkey; end.