uses crt;
type
mas=array[1..30] of integer;
var
i,j,k,n:integer;
a:mas;
begin
clrscr;
writeln('enter n:');
read(n);
writeln('Enter matrix: ');
for i:=1 to n do
read(a[i]);
clrscr;
for i:=1 to n do
write(' ', a[i]);
writeln(' ');
for i:=1 to n do
begin
for j:=i+1 to n do
begin
for k:=j+1 to n do
begin
writeln(a[i], ' ', a[j], ' ', a[k]);
end;
end;
end;
readkey;
end.
Сочетания из n по m |