Ответ:
=ЕСЛИ(B1<3000;B1*0,05; ЕСЛИ(B1>10000;B1*0,015; B1*0,02))
180
Const n=10;
var a:array [1..n] of real;
i,k:integer;
b,min,s:real;
begin
for i:=1 to n do begin
a[i]:=21*random-10;
if a[i]=0 then k:=k+1;
write (a[i]:6:2);
end;
writeln;
writeln ('нулевых элементов ',k);
min:=a[1];
for i:=1 to n do
if a[i]<min then begin
k:=i;
min:=a[i];
end;
for i:=k+1 to n do
s:=s+a[i];
writeln('сумма после минимального = ',s:5:2);
for k:=1 to n do
for i:=1 to n-1 do
if abs(a[i])>abs(a[i+1]) then begin
b:=a[i];
a[i]:=a[i+1];
a[i+1]:=b;
end;
for i:=1 to n do
write (a[i]:6:2);
end.
Двоеточие - это часть команды (оператора), который называется оператор присваивания. В данном контексте всегда используется два символа ":=". Команда присваивания y:=y-x означает, что берутся текущие значения переменных x и y, находится их разность, после чего результат записывается (говорят - "присваивается") переменной y. Например, если значение y было задано y:=20; а x:=1; то новое значение переменной y будет равно 20-1=19.
В команде x:=x*2 все аналогично. Берется текущее (установленное ранее) значение переменной x, умножается на 2, а результат этого умножения становится новым значением переменой x. Старое значение при этом безвозвратно теряется.
На дополнительной клавиатуре специальная клавиша нам лук.