Помогите с задачей

[businessman]

Есть 2 ряда чисел. Первый задаётся вручную, второй соответствует формуле 6n, то есть 6,12,18 и т.д. Нужно найти одинаковые числа в этих двух рядах.
Например при заданном ряде 1,3,6,7,12,17,24 в результате будут числа 6,12,24

[ViktorR]

В чем проблема?
Просматривай ряд. Для полученного члена ряда проверяешь остаток при делении на 6.
Если остаток равен нулю, то этот член принадлежит второму ряду.

if ((a[i] MOD 6) = 0) then ...

Как-то так, ...

[businessman]

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

В чем проблема?
Просматривай ряд. Для полученного члена ряда проверяешь остаток при делении на 6.
Если остаток равен нулю, то этот член принадлежит второму ряду.

if ((a[i] MOD 6) = 0) then ...

Как-то так, ...

А если второй ряд будет равен 6n-4 например?

[ViktorR]

В этом случае немного сложнее.
1. Необходимо получить остаток от деления элемента ряда на 2.
2. Если остаток 0 то элемент является претендентом на членство во втором ряде.
3. Если элемент - претендент, то поделить элемент ряда на 2: m := a[i] DIV 2;
4. В цикле по n, пока 6n - 4 <= m, ищем остаток от деления элемента ряда на 6n - 4.
5. Если остаток 0, то элемент ряда принадлежит второму ряду.


Как-то так, ...
PS: Как лучший, на мой взгляд, вариант: К элементу ряда прибавляешь 4 и затем ищешь остаток от деления на 6. :-)
Это так, поскольку: a[i] = 6n - 4; a[i] + 4 = 6n;

[newerow1989]

var a,b:array[1..10] of integer;
    i,j:byte;
begin
   For i:=1 to 10 do
   begin
      Readln(a[i]);
      b[i]:=6*i-4;
   end;
   Writeln;
   For i:=1 to 10 do
      For j:=1 to 10 do
         If a[i]=b[j] then
            Write(a[i],' ');
   Readln;
end.

Сойдет?

[businessman]

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

var a,b:array[1..10] of integer;
    i,j:byte;
begin
   For i:=1 to 10 do
   begin
      Readln(a[i]);
      b[i]:=6*i-4;
   end;
   Writeln;
   For i:=1 to 10 do
      For j:=1 to 10 do
         If a[i]=b[j] then
            Write(a[i],' ');
   Readln;
end.

Сойдет?

Да! Всё работает просто идеально! Большое спасибо!!!

[newerow1989]

Пожалуйста!