fork download
copy 
  1. program metszetkepzes;
  2. const n = 10;
  3.       m = 12;
  4. var a: array [1..n] of integer;
  5.     b: array [1..m] of integer;
  6.     c: array [1..n+m] of integer;
  7.     i, j, k: integer;
  8. begin
  9.   randomize;
  10.   //tömbök elkészítése
  11.   for i:=1 to n do
  12.   begin
  13.     a[i]:=random(8);
  14.     write(a[i], ' ');
  15.   end;
  16.   writeln;
  17.   for j:=1 to m do
  18.   begin
  19.     b[j]:=random(8);
  20.     write(b[j], ' ');
  21.   end;
  22.   writeln;
  23.   //írjuk ki a c-be az a és b metszetét!(kozos elemeit)
  24.   k:=0;
  25.   for i:=1 to n do begin
  26.     j:=1;
  27.     while (j<=m) and (a[i]<>b[j]) do
  28.       j:=j+1;
  29.     if j<=m then begin
  30.       k:=k+1;
  31.       c[k]:=a[i];
  32.     end;
  33.   end;
  34.   writeln('az a es b metszete a c tombben: ');
  35.   for i:=1 to k do
  36.     write(c[i], ' ');
  37.   readln;
  38. end.
Success #stdin #stdout 0s 9120KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
0 2 3 1 0 6 6 6 7 0 
7 7 0 6 0 1 0 7 4 7 3 4 
az a es b metszete a c tombben: 
0 3 1 0 6 6 6 7 0
https://ideone.com/Ri4TER
language:
Pascal (gpc 20070904)
created:
8 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!