01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 4 лабораторка / 2 задание

2. даны: натуральное число n, действительные числа . Среди нет повторяющихся чисел, нет и среди . Построить пересечение последовательностей ( т.е. получить в каком-нибудь порядке все числа, принадлежащие последовательности и последовательности одновременно.

• Текст программы:

var

n,i,k: integer; a: array[1..16] of real; b :array[1..100] of real;

begin

write('n=');

readln (n);

for i:=1 to 16 do begin

write ('a',i,'=');

readln (a[i]);

end;

for i:=1 to n do begin

write ('b',i,'=');

readln (b[i]);

end;

for i:=1 to 16 do begin

for k:=1 to n do begin

if a[i] = b[k] then

writeln ('resultat=',a[i]);

end;

end;

readln; readln;

end.

• Исходные данные: n=3and . Результат: 1,2,3

да

нет