Описание алгоритма: задан список А и число M, n = len(A). для того чтобы найти все возможные варианты выборки из А необходимо построить множество двоичных чисел от 1 до 2^n-1 и складывать только те индексы разряд которого которого в двоичном числе равен 1, т.е. для двоичного числа 1100 это будут индексы 2 и 3. Если сумма будет равна М вывести последовательность индексов, иначе идем далее Язык Python A=[21,4,5,4,32] #Задание массива А M = 9 #Задание М for i in range(1, 2**len(A)-1): # для всех i от 1 до 2^n-1 ind = [] # список индексов используемых в данной итерации cnt = 0 # сумма элементов А for j in range(len(A)): # для всех j от 0 до n if i&2**j: # Если индекс есть в бинарной записи i, то cnt += A[j] # прибавить к сумме A[j] ind.append(str(j)) # запомнить индекс if cnt > M: break # если сумма больше M выходим из цикла if cnt == M: # если сумма равна M print ', '.join(ind) # печатаем список эффективных индексов
для данной программы будет выдано две строки 1,2 2,3
1. пропала ; после writeln('Цифра')
2. меньше или равно пишется <=, так что условие n=<300 надо переписать n<=300
3. после sum:=n+sum; пропала закрывающая скобка end
4. после else надо бы еще begin
5. предпоследняя строчка тоже мимо.
Вот вся исправленная прога:
program one;
var a,n,sum,b:integer;
sred:real;
begin
readln(n);
writeln('Цифра');
while (n<>0) do
begin
sred:=0;
sum:=0;
b:=0;
if(n mod 8 =0 )and (n<=300) then
begin
sum:=n+sum;
end
else
begin
writeln('NO');
end;
readln(n);
if b>100 then
writeln('NO')
end;
sred:=sum/b;
writeln('Среднее арихметическое равно ',':=',sred);
end.