Acasa Tehnologie Intersectia a 2 multimi reprezentate prin 2 vectori

Intersectia a 2 multimi reprezentate prin 2 vectori

by Dragos Schiopu

programare 3

>

program intersectie;
var a,b:array[1..50] of integer;
    n1,n2,i,j:integer;
    ok:boolean;
begin
     write('n1=');readln(n1);
     for i:=1 to n1 do begin
         write('a[',i,']=');readln(a[i]);
         end;
     for i:= 1 to n1 do write(a[i], ' ' );
     writeln;
     write('n2=');readln(n2);
     for j:=1 to n2 do begin
         write('b[',j,']=');readln(b[j]);
         end;
     for j:=1 to n2 do write(b[j], ' ');
     for i:=1 to n1 do begin
         ok:=false;
          for j:=1 to n2 do
             if b[j]=a[i] then ok:= true;
             end;
         writeln;
     if ok then writeln('intersec=',a[i]);
     readln;
end.
{by Matei Alexandru   PascalZone.evonet.ro}

s-ar putea sa-ti placa

0 comentarii

Anonymous 16-07-2010 - 17:20