Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- const n=10;
- type
- vector = array[1..n] of string;
- var mas:vector; i: integer;
- procedure randommas(var a: vector; n: integer);
- var
- u, v: integer;
- begin
- for u := 1 to n do a[u] := '';
- for u := 1 to n do
- begin
- randomize;
- v := random(31) + 1;
- while v > 0 do
- begin
- a[u] := a[u] + chr(v mod 10 + ord('0'));
- v := v div 10;
- end;
- a[u] := a[u] + '.';
- v := random(12) + 1;
- while v > 0 do
- begin
- a[u] :=a[u]+ chr(v mod 10 + ord('0'));
- v := v div 10;
- end;
- a[u] := a[u] + '.';
- v := random(2100) + 1;
- while v > 0 do
- begin
- a[u] := a[u] + chr(v mod 10 + ord('0'));
- v := v div 10;
- end;
- end;
- end;
- begin
- randommas(mas,n);
- for i:=1 to n do writeln(mas[i]);
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement