Все готовые лабы по паскалю (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



















































да

нет







Случайные файлы

Файл
180486.rtf
131307.rtf
42753.rtf
27015.rtf
8270.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.