Вычисление НОК элементов целочисленного массива

@2016qwerty · Регистрация: 11.05.2016

Author24 — интернет-сервис помощи студентам

составьте программу вычисления НОК элементов целочисленного массива А(n), что расположены перед первым нулевым элементом данного массива

исправьте пожалуйста

Pascal

var a:array[0..100] of integer; kratnoe,n,i,j:integer;
function NOK(k,l:integer):integer;
begin
while k <> l do
if k > l then
k := k - l else
l := l - k;
NOK:=l;
end;
begin
writeln('Введите размерность массива n');
readln(n);
writeln('Введите массив');
for i:=1 to n do read(a[i]);
j:=1;
while (a[j]<>0) and (j<=n) do j:=j+1;
if (j>n) or (j=1) then writeln('Невозможно посчитать')
else if j=2 then writeln('NOK=',a[1])
else if j=3 then writeln('NOK=',nok(a[1],a[2])) else begin
kratnoe:=nok(a[1],a[2]);
for i:=3 to j do kratnoe:=nok(kratnoe,a[i]);
writeln('NOK=',kratnoe);
end;
end.

тут НОД, а по условию НОК нужен

@shilko2013 · 04.06.2016, 11:50

Pascal

function NOK(m,n:integer):integer;
begin
NOK:=(m div NOD (m,n))*n;
end;

	04.06.2016, 11:50