fork download
copy 
  1. program lista_wspolna_z_p_i_q;
  2. type tab=array[1..10] of integer;
  3.      lst = record
  4.                 elementy: tab;
  5.                 ile: integer
  6.              end;
  7. var
  8.     i, j, k: integer;
  9.     p, q, r: lst;
  10.  
  11. begin
  12.     writeln('poczatek');
  13.     read(p.ile, q.ile); readln; writeln(p.ile,' ',q.ile);
  14.     for i:= 1 to p.ile do read(p.elementy[i]);readln;
  15.     for i:= 1 to q.ile do read(q.elementy[i]);readln;
  16.     for i:= 1 to p.ile do write(p.elementy[i],' ');writeln;
  17.     for i:= 1 to q.ile do write(q.elementy[i],' ');writeln;
  18.  
  19.    i := 1;
  20.    j := 1;
  21.    k := 0;
  22.  
  23. 	while (i <= p.ile) and (j <= q.ile) do
  24. 		begin
  25. 			if p.elementy[i] = q.elementy[j] then
  26. 				begin
  27. 					k := k + 1;
  28. 					r.elementy[k] := p.elementy[i];
  29. 					i := i + 1;
  30. 					j := j + 1;
  31. 				end
  32. 			else if p.elementy[i] < q.elementy[j] then
  33. 				i := i + 1
  34. 			else 
  35. 				j := j + 1;
  36. 		end;
  37. 	r.ile := k;
  38.  
  39.     for i:= 1 to r.ile do write(r.elementy[i],' ');writeln;     
  40.     writeln('koniec');
  41. end.
Success #stdin #stdout 0s 5288KB
comments (?)
stdin
copy 
8 7
2 2 2 3 3 5 5 11
2 2 5 7 7 11
stdout
copy 
poczatek
8 7
2 2 2 3 3 5 5 11 
2 2 5 7 7 11 0 
2 2 5 11 
koniec
https://ideone.com/1M3qpy
lista wspolna z p i q - niemalejących
language:
Pascal (fpc 3.0.4)
created:
8 days 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!