№2959. знак числа в функция sign(x) (знак числа) определена так: sign(x) = 1, если x 0, sign(x) = -1, - id722786120200628 от Anastasii777 28.06.2020 20:17

Question

Информатика: №2959. знак числа в функция sign(x) (знак числа) определена так: sign(x) = 1, если x 0, sign(x) = -1, если x 0, sign(x) = 0, если x = 0. для данного числа x выведите значение sign(x). входные данные вводится число x. выходные данные выведите ответ на . примеры входные данные 179 выходные данные 1

Anastasii777 · Accepted Answer

//Видимо, это одна задача, так как изменения во второй не указаны //Pascal ABC.NET v3.1 сборка 1172 Const  n=20; Var  ar:array[1..n] of integer;  i:integer; begin  randomize;  writeln( First array: );   for i:=1 to n do    begin     ar[i]:=random(10)-3;     write(ar[i]:4);     if ar[i] 0 then ar[i]:=ar[i]*2 else ar[i]:=0;    end;  writeln;  writeln( Final array: );   for i:=1 to n do    write(ar[i]:4); end. Пример работы программы: First array:   2  -3   5   6  -3  -3   1  -2  -3   1   3  -3   4...

MOGZ ответил