Сформировать массив случайных чисел в диапазоне от -10 до 20 и округлить значения элементов, по модулю меньших 1.
Написать программу в Pascal

Предыдущий
вопрос Следующий
вопрос

program RandomArray;

var
arr: array [1..10] of Real;
i: Integer;

begin
Randomize;

// Заполняем массив случайными числами
for i := 1 to 10 do
begin
arr[i] := Random * 30 - 10; // Генерируем число в диапазоне от -10 до 20
end;

// Округляем значения элементов, по модулю меньших 1
for i := 1 to 10 do
begin
if (abs(arr[i]) < 1) then
arr[i] := Round(arr[i]);
end;

// Выводим массив на экран
for i := 1 to 10 do
begin
WriteLn(arr[i]);
end;

ReadLn;
end.