1)С помощью датчика случайных чисел получить к-вещественных чисел n (0<N<1) Значения k вводиться с клавиатуры

2)С помощью датчика случайных чисел получить k-целых чисел лежащих в диапазоне от 0 до А включительно k и А вводится с клавиатуры

  • 1)
    uses crt;
    var i,k:integer;
    n:real;
    begin
    randomize;
    read(k);
    for i:=1 to k do
    begin
    n:=random;
    write(n:0:2,’ ‘);
    end;
    end.
    2)
    uses crt;
    var i,k,n,a:integer;
    begin
    randomize;
    read(k,a);
    for i:=1 to k do
    begin
    n:=random(0,a);
    write(n,’ ‘);
    end;
    end.