Advertisement
Guest User

Untitled

a guest
Oct 23rd, 2019
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.77 KB | None | 0 0
  1. const n=10;
  2. type
  3. vector = array[1..n] of string;
  4. var mas:vector; i: integer;
  5. procedure randommas(var a: vector; n: integer);
  6. var
  7. u, v: integer;
  8. begin
  9. for u := 1 to n do a[u] := '';
  10. for u := 1 to n do
  11. begin
  12. randomize;
  13. v := random(31) + 1;
  14. while v > 0 do
  15. begin
  16. a[u] := a[u] + chr(v mod 10 + ord('0'));
  17. v := v div 10;
  18. end;
  19. a[u] := a[u] + '.';
  20. v := random(12) + 1;
  21. while v > 0 do
  22. begin
  23. a[u] :=a[u]+ chr(v mod 10 + ord('0'));
  24. v := v div 10;
  25. end;
  26. a[u] := a[u] + '.';
  27. v := random(2100) + 1;
  28. while v > 0 do
  29. begin
  30. a[u] := a[u] + chr(v mod 10 + ord('0'));
  31. v := v div 10;
  32. end;
  33. end;
  34. end;
  35. begin
  36. randommas(mas,n);
  37. for i:=1 to n do writeln(mas[i]);
  38. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement