Question

Задача по информатике: (PascalABC) Получить случайным образом N целых чисел, и найти их сумму. (функцией random) Спасибо большое !

Answer 1

Ответ:

var

 f: array[1..100] of integer;

 i, n, s: integer;

begin

 writeln('Введите количество чисел: ');

 readln(n);

 randomize;

 for i := 1 to n do  

 begin

   f[i] := random(0, n);

   write(f[i], ' ');

 end;

 s := 0;

 for i := 1 to n do

 begin

   s := s + f[i];

 end;

 writeln('Сумма: ', s);

end.

Answer 2

Для решения данной задачи в PascalABC можно воспользоваться встроенной функцией random. Random генерирует случайное число от 0 до 1, поэтому для получения случайного целого числа можно воспользоваться формулой: randomRange(minValue, maxValue) где minValue - минимальное значение, maxValue - максимальное значение. Для нахождения суммы случайных чисел можно использовать цикл, который будет генерировать случайное число и прибавлять его к сумме на каждой итерации. Вот пример кода: ``` program RandomSum; var n, i, num, sum: integer; begin // Ввод количества чисел writeln('Введите количество чисел:'); readln(n); // Инициализация суммы sum := 0; // Генерация чисел и нахождение их суммы for i := 1 to n do begin num := random(100); // Генерация случайного числа от 0 до 99 writeln('Сгенерированное число: ', num); sum := sum + num; // Прибавление числа к сумме end; // Вывод результата writeln('Сумма чисел: ', sum); end. ``` В данном примере пользователю предлагается ввести количество чисел n, затем в цикле генерируются случайные числа и находится их сумма. Сгенерированное число и текущая сумма выводятся на каждой итерации цикла, а в конце выводится общая сумма чисел. Обратите внимание, что в данном примере случайные числа генерируются в диапазоне от 0 до 99 (random(100)), вы можете изменить это значение в зависимости от своих требований.