Положительные элементы заменить на 1, а отрицательные на - 1

Question

Информатика

Николка

16 декабря, 01:24

Положительные элементы заменить на 1, а отрицательные на - 1

+4

Ответы (1)

Знаете ответ на вопрос?

Серапион · Answer 1

Var a: array [1 ... 30] of integer;

begin

for var i:=1 to 30 do

begin

a[i]:=random (-30,30) ;

end;

println (a) ;

for var i:=1 to 30 do

begin

if (a[i]>0) then

a[i]:=1

else

a[i]:=-1;

end;

print (a) ;

end.