Люди добрые (програмисты), помогите решить задачку на Паскале!

[QWR]

Помогите, пожалуста!!!
Буду очень благодарен

Тема: Работа с множествами
Дано N монет номиналами M1, M2, M3, ... , Mn. Определить можно ли из них составить сумму S и как же

[[Smarik]]

var
i,sum,n:integer;
m: array[1..100] of integer;
begin
sum:=0;
writeln('vvedite kolichestvo monet');
readln(n);
for i:=0 to n do
sum:=sum+m[i];
readln;
end.

[QWR]

Smarik

Спасибочко!!!
Ща посмотрим...

[QWR]

Сообщение от [Smarik]

var
i,sum,n:integer;
m: array[1..100] of integer;
begin
sum:=0;
writeln('vvedite kolichestvo monet');
readln(n);
for i:=0 to n do
sum:=sum+m[i];
readln;
end.

Smarik, она работает несовсем так, как задано в задаче, но всёровно, спасибо. Я попытаюсь ее немножко переделать \ дополнить, может что-то получится!

[Evolution]

Помогите, пожалуста с задачкой=)
Тема: Использование модулей System и CRT.
Найти максимальный и минимальный элемент матрицы, их индексы. Для вывода элементов матрицы составить процедуру, которая обеспечивает ввод элементов в виде таблицы.
Использовать не менее 5 процедур и функций!

[Sazary]

QWR
Ищет все возможные комбинации и выводит их, а также их количество.

uses crt;
var
N : integer;
M : array[1..100] of integer;
S,cnt : longint;
i : integer;

procedure fun(k : integer; tekS : longint; st : string);
 var i : integer;
 bf,ss : string;
begin
if k>N then
 begin
 if tekS = S then
   begin
   writeln(st);
   inc(cnt);
   end;
 exit;
 end;
{--}
i := 0;

while (M[k]*i + tekS)<=S do
  begin
  ss := st;
  if i = 1 then
    begin
    Str(M[k],bf);
    if st<>'' then ss := ss + ' + ';
    ss := ss + bf;
    end
  else if i>1 then
    begin
    Str(i,bf);
    if ss<>'' then ss := ss + ' + ';
    ss := ss + bf;
    Str(M[k],bf);
    ss := ss + '*' + bf;
    end;
  fun(k+1,(tekS + M[k]*i),ss);
  inc(i);
  end;  {while}
end;
{----------}

begin
clrscr;
write('Enter N: ');
readln(N);
writeln;
for i:=1 to N do
 begin
 write('Enter M[',i,']: ');
 readln(M[i]);
 end;
writeln;
write('Enter S: ');
readln(S);
writeln;
{----------}
cnt := 0;
fun(1,0,'');
writeln('------');
writeln('Vsego sposobov: ',cnt);

readln;
end.

Пример ввода:

Enter N: 2

Enter M[1]: 1
Enter M[2]: 3

Enter S: 7

1 + 2*3
4*1 + 3
7*1
------
Vsego sposobov: 3

[QWR]

Sazary большое спасибо=)

[Sazary]

Пардон.. Немного не так понял условие...наверное.
Дано ровно N монет (где каждая своего достоинства)? Или есть куча монет с заданными достоинствами?

В общем, если есть ровно N монет, то код такой:

uses crt;
var
N : integer;
M : array[1..100] of integer;
S,cnt : longint;
i : integer;

procedure fun(k : integer; tekS : longint; st : string);
 var i : integer;
 bf,ss : string;
begin
if k>N then
 begin
 if tekS = S then
   begin
   writeln(st);
   inc(cnt);
   end;
 exit;
 end;
{--}

i := 0;
while ((M[k]*i + tekS)<=S) and (i<2) do
  begin
  ss := st;
  if i = 1 then
    begin
    Str(M[k],bf);
    if st<>'' then ss := ss + ' + ';
    ss := ss + bf;
    end;

  fun(k+1,(tekS + M[k]*i),ss);
  inc(i);
  end;  {while}
end;
{----------}

begin
clrscr;
write('Enter N: ');
readln(N);
writeln;
for i:=1 to N do
 begin
 write('Enter M[',i,']: ');
 readln(M[i]);
 end;
writeln;
write('Enter S: ');
readln(S);
writeln;
{----------}
cnt := 0;
fun(1,0,'');
writeln('------');
writeln('Vsego sposobov: ',cnt);

readln;
end.