Паскаль, Одномерный массив.

[HaTyCuk]

Люди помогите решить задачку времени мало:

Дан одномерный массив. Определить наименьшее общее кратное для элементов этого массива!!!

[Базиля]

А че тут думать? В любом случае будет 1))

[MyLastHit]

Чел наверное имел ввиду наибольшее общее кратное, ну или наибольший общий делитель))))

[eoln]

Сообщение от Базиля

А че тут думать? В любом случае будет 1))

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

Чел наверное имел ввиду наибольшее общее кратное, ну или наибольший общий делитель))))

Путаете НОК и НОД

[Alex_FF]

function NOD(M, N: Integer): Integer;
begin
    if M <> 0 then NOD := NOD(N mod M, M) else NOD := N;
end;

function NOK(M, N: Integer): Integer;
begin
    NOK := (M div NOD(M, N)) * N;
end;

для двух чисел

[Анатоль]

if M <> 0 then NOD := NOD(N mod M, M) else NOD := N;
Воббще то нужно проверять чтобы M>N.