Вопрос Помогите написать программу, которая заменяет все отрицательные элементы на 0, а положительные на 1.

[пукьфт]

Помогите написать программу, которая заменяет все отрицательные элементы на 0, а положительные на 1. Паскаль АБС

 

[sl7]

var x:real;begin readln(x); if x<=0 then x:=0 else x:=1;writeln(x) end.

 

[Jop]

if a <0 then a:=0 if a > 0 then a:=1