Напишите программу, используя модуль

[Джей]

Напишите программу, используя модуль, которая в одномерном массиве, состоящем из обыкновенных дробей, находит сумму всех элементов массива. Результат представить в виде несократимой дроби.

[Poma][a]

function Gcd (a, b : Integer) : Integer;

begin
	while (a <> 0) and (b <> 0) do
		if a > b then

			a := a mod b
		else
			b := b mod a;
	Gcd := a + b ;
end;

procedure PrintFraction (a, b : LongInt);

begin
	if a = b then
		WriteLn ('1')
	else if a = 0 then
		WriteLn ('0')
	else if b = 1 then
		WriteLn (a)
	else if a > b then begin
		Write (a div b);
		if a mod b <> 0 then
			WriteLn (' ', a mod b, '/', b)
	end
	else
		WriteLn (a, '/', b);
end;

var
	 a, b, c, d, r : LongInt;

begin

	ReadLn (a, b, c, d);
	r := Gcd (a,b);
	a := a div r;
	b := b div r;

	r := Gcd (c, d);
	c := c div r;
	d := d div r;

	r := Gcd (b, d);
	r := b div r * d;
	a := a * (r div b);
	c := c * (r div d);
	a := a + c;
	b := r;

	r := Gcd (a,b);

	PrintFraction (a,b)
end.

Вот программа из моих личных запасов для суммирования 2-х дробей. Прикрутите её к массиву и будет Вам счастье..