Const n=10;
Var a: array [1..n] of integer;
i,min: integer;
Begin
For i:=1 to n do
a[i]:=Random(21)-10;
writeln ('Исходный массив: ');
for i:=1 to n do
write (a[i],' ');
writeln;
min:=a[1];
for i:=2 to n do
if a[i]<min then
min:=a[i];
writeln ('Минимальный элемент = ',min);
for i:=1 to n do
if a[i]<0 then
a[i]:=a[i]*min;
writeln ('Преобразованный массив:');
for i:=1 to n do
write (a[i], ' ');
end.
X=125
a= 125 div 100= 1
b= 125 mod 100 div 10= 25 div 10 = 2
c= 125 mod 10 =5
s= 1+2+5=8
x= 248
a= 248 div 100= 2
b= 248 mod 100 div 10= 48 div 10 = 4
c= 248 mod 10 =8
s= 2+4+8=14
x=789
a= 789 div 100= 7
b= 789 mod 100 div 10= 89 div 10 = 8
c= 789 mod 10 =9
s= 7+8+9=24
Это определение стандартной неэлементарной кусочно-постоянной математической функции sgn(x) - сигнум От латинского signum - знак).
В языке Паскаль эта функция уже определена.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
Writeln('y=',Sign(ReadReal('x=')))
end.
<u><em>Тестовое решение</em></u>
x= 4.564
y=1
225 в десятичной с.с=11100001 в двоичной с.с
Ответ: 4 (единицы).
Мышь, тачпад и трекбол выполняют функцию комп.мыши, получается, что лишнее - клавиатура