Сформировать и вывести на экран массив элементов которого заданы датчиком случайных чисел на интервале [-56;26] (размер произвольный) Паскаль

11 Окт 2019 в 14:43
621 +1
0
Ответы
1

program RandomArray;

var
arr: array of Integer;
i: Integer;

begin
Randomize;

SetLength(arr, 10); // Указываем размер массива

// Заполняем массив случайными числами в диапазоне [-56; 26]
for i := 0 to Length(arr) - 1 do
begin
arr[i] := Random(83) - 56; // 83 - (26 - (-56) + 1)
end;

// Выводим массив на экран
writeln('Random Array:');
for i := 0 to Length(arr) - 1 do
begin
writeln(arr[i]);
end;

end.

19 Апр 2024 в 12:09
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир