var a:array [1..10] of integer;b,i:integer;z:real;beginrandomize;for i:=1 to 10 dobeginz:=random;b:=random(10);if z>0.5 then a[i]:=belse a[i]:=-b;end;for i:=1 to 10 dowrite(' ',a[i]);end.
если что то не понятно,спрашивай)
Ответ:
Пишу в Pascal
Объяснение:
var
x,f:real;
begin
read(s);
if x>0 then
f:=x
else
f:=-x;
write(f);
end.