В помещениях:Сталевар,кассир обменного пункта.На открытом воздухе:почтальон,егерь,полевод,чабан,крановщик,водитель.В кабинетах:бухгалтер,учитель,менеджер.В необычных условиях труда:спасатель,водолаз,шахтёр,космонавт,каскадёр.
Если чётное, в конце (младший разряд) 0. На 4 - два нуля. На 8 - три. На 32 - пять нулей.
===== PascalABC.NET =====
begin
var n := ReadInteger('Длина массива:');
var (a, b) := ReadInteger2('Границы значений элементов [a, b]:');
var V := ArrRandom(n, a, b);
V.Println;
Writeln('Искомая сумма равна ', V.Where(p -> p < 9).Sum)
end.
Var
a:array [1..9] of integer;
i,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=random(141)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]<=99 then
if ((a[i] div 10) mod 2)<>0 then k:=k+a[i];
if a[i]>99 then
begin
b:=a[i] div 10;
if (b mod 2)<>0 then k:=k+a[i];
end;
end;
writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k);
end.