Дан целочисленный массив из 10 элементов.Элементы массива могут принимать целые значения от 1 до 10000 включительно.Опишите на естественном языке или на одном из языков программирования алгоритм,позволяющий найти и вывести наименьший из элементов массива,двоичная запись которого содержит не более 7 разрядов и оканчивается на цифру 1.Если таких чисел нет,нужно вывести ответ 0
var i,j,q,d,n,s,s0,sm:integer;
begin
write('Введите число эле-в, первый элемент и шаг ариф. прогрессиии шаг');
read(n,s0,d);
for i:= 1 to n do begin
s:= s0 +(i-1)*d; write(s:2);
sm:= sm + s;end;
write(sm:4);end.
{программу для вычисления суммы элементов геометрической прогрессии}
var i,j,q,n:integer; z,b,b0,sm:real;
begin
write('Введите число эле-в, первый элемент и знаменатель геом. прогрессиии');
read(n,b0,q);
for i:= 1 to n do begin
z:=i;
b:= b0 *Power(q,z-1);
write(b:4);
sm:= sm + b;end;write(sm:4);end.