Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ векторы

Автор: trew 19.05.2008 18:53

даны два целочисленных вектора А(6) и В(5) распечатать все элементы которые входят в оба вектора.
подсказка А(6) и В(5) длина векторов тоесть вводим их элементы и находим общие

Автор: trew 20.05.2008 8:20

для одного зачета не хватает.

Автор: trew 20.05.2008 23:10

я очень старался так и не смог помогите пожалуйста

Автор: dream-x 20.05.2008 23:47

Цитата(trew @ 20.05.2008 20:10) *

я очень старался так и не смог помогите пожалуйста

Плохо старался smile.gif... Вот если я правильно понял условие то код такой:

Program pr;
Const
Nmax=10;
Var
a,b:array[1..Nmax] of integer;
i,j,n_a,n_b:integer;
Begin

Readln(n_a);
For i:=1 to n_a do
ReadLn(a[i]);
write('*******************');
Readln(n_b);
For i:=1 to n_b do
ReadLn(b[i]);
write('*******************');

For i:=1 to n_a do
For j:=1 to n_b do
if a[i] = b[j] then writeln(a[i]);

End.