01 семестр / Лабораторные работы / Все готовые лабы по паскалю / 4 лабораторка / 2 задание
.doc2. даны: натуральное число 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
да
нет