Pascal. построить одномерный массив вещественных чисел.числа сформировать при генератора случайных чисел

Программа выводит числа в диапазоне [0..R)

Const
   N = 13;
Var
   A:array[1..N] of real;
   i,R:integer;
Begin
Write('R = ');ReadLn(R);
For i:= 1 to N do
    Begin
    A[i]:=random()*R;
    Write(A[i]:0:3,' ');
    End;
End.

Var
mas:array [1..20] of real;
i:integer;
begin
randomize;
for i:=1 to 20 do begin
mas[i]:=random(100)-70+random(1000)/1000;
write(mas[i], ' ');
end;
end.

Объяснение: Для решения этой задачи используйте переменные: Р-сумма денег, которая есть на руках; х- цена товара; k- кол-во товара; s-общая стоимость покупки (начальное значение s=0); d- сумма, на которую будет повышаться общая стоимость покупок. Значение имеющийся у него суммы денег вводит пользователь. Необходимо повторять запрос цены и кол-ва выбранного товара, вычислять его стоимость, суммировать ее с общей стоимостью покупок и выводить результат на экран до тех пор, пока она не превысит имеющийся у него сумму. В этом случае нужно вывести сообщение о том, на сколько будет превышена сумма покупки. решение через цикл repeat

будет выведено значение k, равное 24

Объяснение:

изначально s будет равно 25, функция mod - остаток от деления

здесь у нас цикл с условием выполнения, если s будет делиться на 2 без остатка (т.е. остаток будет равен нулю)

в первом случае (когда s=25) у нас получается остаток 1, идем по циклу, получаем s=24 (т.к. s присваивается значение s-1, т.е. 25-1=24) и k=s/2=24/2=12

далее если идти по циклу с s=24, получаем остаток 0 (24/2=12 - целое число без остатка)

по условию цикла получаем k=24 (если остаток 0, то значение s присваиваем k)