Запишите команду генерации случайного числа от 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 pr;

var mas: array[1..40] of integer;

i, sum: integer;

begin

randomize;

for i: =1 to 40 do mas[i]: =random(20);

for i: =1 to 40 do if mas[i]< =10 then sum: =sum+mas[i];

writeln ('сумма равна ', sum);

readln;

end.

программу проверил все работает

линейный (следования)

разветвляющийся (развилка)

циклический