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

program zz1;

var i, k, A, c:integer; / / задаем переменные целого типа

b:real;

begin

write (' введите заданное k ');

read (k);

for i:=1 to k do / / организуем цикл на k повторений

begin

b:=random (); / / получаем число случайным образом

writeln (i,'-е вещественное число = ', b); / / выводим ответ

end;

write (' введите заданное A ');

read (A);

for i:=1 to k do / / организуем цикл на k повторений

begin

c:=random (A+1); / / получаем число случайным образом

writeln (i,'-е целое число = ', c); / / выводим ответ

end;

end.