Запишите команду генерации случайного числа от 0 до 51.

ответ:

var n, i, x: integer;

begin

    randomize;

    n : = random (7) + 5;

    for i : = 1 to n do begin

        x : = random (100) - 50;

        write (x: 5)

    end;

readln

end.

отметь как 5 звезд, нажми на и выбери как лучший ответ!

крик

program xxx;   var a, b, min : integer; begin  write('введите число а=');  

    readln(a);

  min: =10;   while a < > 0 do      begin            b: = a mod 10;             if b < min then min: =b;             a: = a div 10      end;     writeln('минимальная цифра = ', min);   readlnend.