Составить программы для массивов! На Паскаль

[Klaud]

1)Заданы массивы А[n] и B[n]. Найти их скалярное произведение.
2) Сколькими способами можно отобрать команду в составе 5 человек из 9 кандидатов; из 10 кандидатов; из 11 кандидатов. Подсчет количества способов оформить в виде подпрограммы.

[pif]

const n=10;
var a,b:array [1..n] of integer;i:byte;
 
begin
s:=0;
for i :=1 to n do    
      s:=A[i]*B[i]+s;
end.

const d=5;(кол-во человек)
function cochetanie(h):real;{h-кол-во кандидатов}
var h,d,i,j,t:integer;
 begin
  p:=1;
  d:=1;
  if (h-n)>0 then 
     begin
      for i:=1 to h do
        p:=i*p;
      for j:=1 to n do
        d:=j*d;
      for t:=1 to (h-n) do
        d:=d*t;
      h:=p/d;
   cochetanie:=h;
    end;
end;

[Chudo4258]

1)Заданы массивы А[n] и B[n]. Найти их скалярное произведение.

for i:=1 to n do //вводишь координаты векторов A и B
begin
 Write('A[',i,']= ');
 Readln(A[i]);
 Write('B[',i,']= ');
 Readln(B[i]);
end;

for i:=1 to n do //находишь их скалярное произведение
 S:=S+A[i]*B[i];

Writeln('Скалярн произв = ', S);

[DM_bite]

2.

program F;
function F(x: longint): longint;
var i: integer;
    Fq: longint;
begin
Fq:=1;
for i:= 1 to x do
begin
Fq:= fq*i;
end;
F:= Fq;
end;

const n=5;
      m=9;
begin
ReadLn;
WriteLn(F(m) div F(m-n));
ReadLn;
end.

Если мне не изменяют мои знания по комбинаторике. Значение в константе m меняй на 10 и 11 соответственно.

[alex_fcsm]

Сообщение от DM_bite

Если мне не изменяют мои знания по комбинаторике.

Может так?
Число сочетаний без повторений из n различных элементов по m равно:Сnm=n!/(m!*(n-m)!)

[Klaud]

Спасибо ребят. А кто нибудь может сделать на них блок-схемы и програмы на Qbasic