Нужно срочно решить 3 задачи.....помогите плиз

[gector]

1)Составить программу, в которой подсчитывается сумма элементов каждой строки двумерного массива,состоящего из 5 строк и 5 столбцов.

2)Составить программу определения числа сочетаний C=N!/M(N-M)!) по известным значениям целочисленных переменных N и M(при N<M).

3)Составить программу вычесления значения степени числа.

[5naip]

1 задача.
массив забивается рандомными числами в диапазоне 0..100. Надо вручную?

var
  i,j,sum:integer;
  matrix:array[1..5,1..5] of integer;
begin
randomize;
for i:=1 to 5 do
  for j:=1 to 5 do
      matrix[i,j]:=random(101);

for i:=1 to 5 do
  begin
    sum:=0;
    for j:=1 to 5 do
      sum:=sum+matrix[i,j];
    writeln('Summa ',i,' stroki = ', sum)
  end;
readln;
end.

2ю задачу я чето с утреца так и не понял
а 3 здесь уже решали..поищите на предмет "7 в 123 степени".

[maladoy]

3

program vstep;
uses crt;
var i,n,a,s:integer;
begin
  clrscr;
  writeln('========');
  writeln('vvedi a');
  readln(a);
  writeln('========');
  writeln('vvedi n') ;
  readln(n);
  i:=0;
  s:=1;
  while i<n do
    begin
      s:=s*a;
      i:=i+1;
    end;
  writeln('========');
  writeln(a,' v stepeni ',n,' = ',s);
  writeln('========');
  readln;
end.

[maladoy]

2)Составить программу определения числа сочетаний C=N!/M(N-M)!) по известным значениям целочисленных переменных N и M(при N<M).

при N<M факториал (n-m) не определен!!!

program fak;
uses crt;
var i,n,m,c:integer;

function faktor( i:integer):integer;
   begin
      if i>1 then faktor:=i*faktor(i-1)
	   else faktor :=1;
	   end;
	begin   
  clrscr;
  writeln('========');
  writeln('vvedi m');
  readln(m);
  writeln('========');
  writeln('vvedi n') ;
  readln(n);
  if m<=n then begin 
  c:=faktor(n)/(faktor(k)*faktor(n-m));
  writeln('========');
  writeln(n,' po ',m,' = ',c);
  writeln('========');
  end
     else writeln ( 'm doljno byt <=n');
readln;
end.