Массивы (Delphi)

[ShaoKhan]

Добрый день.

Подскажите как решать задачку такого вида.

Заданы массивы а=(а1,а2,...,аn) и b=(b1,b2,...,bn). Необходимо напечатать те элементы,которые у них совпадают.

Заранее благодарю.

[Rik_Igle]

У цикле For, сравниваешь оба массива, и результат сравнения сохраняешь в третьем массиве С, а потом его выводишь.

[danekne]

Что значит совпадают? Совпадают значения? Или совпадают номера и значения?

[ShaoKhan]

Совпадают их значения.

[ShaoKhan]

program Project2;


uses
SysUtils, Math;
Type
Mas1 = Array [1..10] of Integer;
Mas2 = Array [5..8] of Integer;
Const
Var j:integer;
A:Mas1;
B:Mas2;

begin
For j:=1 to 10 do begin


end.

На этом у меня полный ступор...

[danekne]

for j:=1 to 10 do
begin
wtiteln('введите a[',j,']');
readln(a[j]);
end;
for j:=1 to 8 do
begin
wtiteln('введите b[',j,']');
readln(a[j]);
end;
for j:=1 to 10 do
for i:=1 to 8 do
if a[j]=b[i] then
writeln(a[j]);

[ShaoKhan]

danekne, спасибо за код.
я изменил только конечные значения j до 5.
Поправьте пожалуйста ошибки, т.к. после ввода всех значений в массиве программа сразу закрывается.
Скорее всего, что-то намудрено перед самим кодом.

program Project2;

uses
SysUtils, Math;
Type
Mas1 = Array [1..10] of Integer;
Mas2 = Array [5..8] of Integer;
Var j,i:integer;
a:Mas1;
b:Mas2;

begin
for j:=1 to 5 do
begin
writeln('Enter a[',j,']');
readln(a[j]);
end;
for j:=1 to 5 do
begin
writeln('Enter b[',j,']');
readln(a[j]);
end;
for j:=1 to 10 do
for i:=1 to 8 do
if a[j]=b[i] then
writeln(a[j]);


end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[danekne]

readln в конце поставь.

[danekne]

Только проблема будет, если в массивах будут повторяющиеся элементы. в смысле в одном массиве два раза одни и те же цифры

[ShaoKhan]

Разобрался.
Тему можно закрывать.
Спасибо, danekne.