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

Question

Информатика

Груня

23 июня, 07:52

Положительные элементы заменить на 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.