Дан одномерный массив натуральных чисел получить из него другой массив составленный из...

Question

Дан одномерный массив натуральных чисел получить из него другой массив составленный из наименьших общих кратных двух соседних чисел. pascal abc СРОЧНО!!

Comments

общее кратное - это число, которое делится без остатка на оба этих числа?

---

да

Answer 1

Var
A,B:array[1..10000] of integer;
i,j,M,N:integer;
Begin
Write('N = ');ReadLn(N);
Write('Исходный массив: ');
For i:= 1 to N do
    Begin
    A[i]:=random(10)+1;
    Write(A[i],' ');
    End;
WriteLn;
Write('Полученный массив: ');
For i:= 1 to N-1 do
    Begin
    if A[i]>A[i+1] then M:=A[i]
    else M:=A[i+1];
    j:=M-1;
    Repeat
    j:=j+1;
    Until (j mod A[i] = 0)and(j mod A[i+1] = 0);
    B[i]:=j;
    Write(B[i],' ')
    End;
End.

Comments

а как начать задачу, в то что-то не работет

---

Массив должен вводится с клавы или рандомно? Тут он вводится рандомно

---

Тут массив вводится автоматически, и выводится новый массив

---

автматически

---

Что-то не работает? Выдаёт ошибку? Если да, то какую?

---

задача выполнется не так, т.е. мне нужно ввести размерность массива а он все автоматически делает

---

Хорошо, сейчас исправлю

---

Так должно быть?

---

неа, все по прежнему

---

Пожалуйста, обновите страницу))

Answer 2

//PascalABC.Net 3.2
function NOK(a, b: integer):integer;
begin
while a<>b do
  if a>b then a-=b else b-=a;
result:=a;
end;

begin
var a:=ReadArrInteger('Вводите: ', readinteger('Размерность массива: '));
var b: array of integer; setLength(b, length(a)-1);
for var i:=0 to length(a)-2 do b[i]:=(a[i]*a[i+1]) div NOK(a[i], a[i+1]);
a.Println;
b.Print;
end.

Comments

что то не то

---

fail

---

Сейчас исправлю