daily pastebin goal
65%
SHARE
TWEET

Untitled

a guest Dec 10th, 2018 74 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program skelums;
  2.  
  3. var a,b,c:array[1..12] of integer;
  4. i,j:integer;
  5. y,z,x:real;
  6.  
  7.  
  8.  
  9. begin
  10. writeln('Masivs A');
  11. for i:=1 to 8 do
  12. begin
  13. a[i]:=random(10);
  14. Write(A[i]:5);
  15. end;
  16.  
  17.  
  18. writeln;
  19.  
  20.  
  21.  
  22. writeln('Masivs B');
  23. for j:=1 to 8 do
  24. begin
  25. b[j]:=random(10);
  26. Write(B[j]:5);
  27. end;
  28. writeln;
  29.  
  30.  
  31.  
  32. writeln('Apakskopa c');
  33. for i:=1 to 8 do
  34. for j:=1 to 8 do
  35. begin
  36. if a[i]=b[j] then
  37. begin
  38. c[i]:=b[j];
  39. write(c[i]:5);
  40. end;
  41. end;
  42.  
  43.  
  44. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top