Предлагаю вариант в Excel
щелкая мышью треугольнички фильтра можно управлять таблицей
Var
i,s:integer;
mas : array [1..20] of integer;
begin
randomize ;
for i:=1 to 20 do
mas[i]:=random (100);
s:=0;
for i:=1 to 20 do
if mas[i] mod 5 = 0 then
s:=s+mas[i];
writeln('sum',s);
end.
101010.1(2)<span>= 4</span><span>2.5(10)</span>
Насколько я понял, нужно перевести из двоичной системы счисления в десятичную.
Обычно это делают, умножая цифру в каждом разряде на "вес" разряда, и складывая эти произведения (естественно, все вычисления делаются по правилам десятичной системы счисления).
Я специально не стал пропускать разряды, равные нулю, чтобы была понятнее суть вычислений при переводе:
А так, их конечно можно пропустить, но главное при этом не пропускать увеличение степени, в которую возводим двойку (она увеличивается на единицу с каждым разрядом в исходном числе). Вот вариант с пропуском нулевых разрядов: