паскаль

[@lenk@]

даны два массива натуральных чисел а1,а2,а3,....,аn и b1,b2,b3,...,bn. найти несократимую обыкновенную дробь, равную (a1/b1)-(a2/b2)+(a3/B3)-(a4/b4)+...+или-(an/bn). ума не приложу как сделать. помогите пожалуйста!!!

[RUSt88]

я по-моему писал уже в этом посте?
пиши на мыло, договоримся

[ai\ekcah^p]

Ессли я правильно понял задание , то вот так ->

Program zad1;
uses crt;
type mas=array[1..20] of integer;
var
a:mas;
b:mas;
i,n:integer;

procedure droby(a2:mas;b2:mas;m:integer);
var
i,k:integer;
sum:real;
begin
  sum:=0;
  k:=1;
  for i:=1 to m do
  begin
    if b2[i]<>0 then
    begin
      sum:=sum+k*(a2[i]/b2[i]);
      k:=k*(-1);
    end

  end;
  textcolor(10);
  write('droby ravna -> ',sum:6:2);
end;
begin
  clrscr;
  randomize;
  write('kol-vo elementov = ');
  readln(n);
  for i:=1 to n do
  begin
    write('a[',i,']:= ');readln(a[i]);
  end;
  for i:=1 to n do
  begin
    write('b[',i,']:= ');readln(b[i]);
    if b[i]=0 then
    begin
      write('vvedite chislo neravnoe nuly -> ');
      readln(b[i]);
      writeln;
    end;
   end;
  for i:=1 to n do
  write(a[i]:3,' ');
  writeln;
  for i:=1 to n do
  write(b[i]:3,' ');
  writeln(#13#10#13#10);
  droby(a,b,n);
  readln;
end.