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

Дан одномерный массив естественных чисел получить из него иной массив составленный из меньших общих кратных 2-ух примыкающих чисел. pascal abc Безотлагательно!!

Задать свой вопрос
Maksim Barvyn
общее кратное - это число, которое делится без остатка на оба этих числа?
Нелли
да
2 ответа
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]gt;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.
Anna Derevjanikina
а как начать задачу, в то что-то не работет
Виктория Шехоленкова
Массив обязан вводится с клавы либо рандомно? Здесь он вводится рандомно
Володя Яцкаер
Здесь массив вводится автоматически, и выводится новый массив
Tamara
автматически
Танюха Фабровская
Что-то не работает? Выдаёт ошибку? Если да, то какую?
Нина Одинцева
задачка выполнется не так, т.е. мне нужно ввести размерность массива а он все автоматически делает
Данька Леошков
Хорошо, на данный момент исправлю
Ника Гвоськова
Так обязано быть?
Люда Настюшенко
неа, все по минувшему
Саша Эрлангер
Пожалуйста, обновите страницу))
//PascalABC.Net 3.2
function NOK(a, b: integer):integer;
begin
while alt;gt;b do
  if agt;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.
Юрик
что то не то
Коростошевская Лидия
fail
Александр
На данный момент исправлю
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт