Question

Формировать десять случайных чисел ,от 5до 20,вычислить их сумму. паскаль.

Answer 1

// PascalABC.NET 3.2, сборка 1370 от 24.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('s=',ArrRandom(10,5,20).Println.Sum)
end.

Пример
9 14 6 6 20 16 12 11 8 5
s=107

Answer 2

Program srand;
const
C = 10;
var
s, i: integer;
begin
s := 0;
for i := 1 to C do
s := s + (random(16) + 5);
writeln(s);
end.

Answer 3

Для формирования десяти случайных чисел от 5 до 20 и вычисления их суммы в Pascal, вы можете использовать следующий код:

program RandomSum;
var
  i, num, sum: integer;
begin
  sum := 0;
  Randomize; // Инициализация генератора случайных чисел
  
  for i := 1 to 10 do
  begin
    num := Random(16) + 5; // Генерация случайного числа от 5 до 20
    sum := sum + num; // Прибавление числа к сумме
  end;
  
  writeln('Сумма случайных чисел: ', sum);
end.

В этом коде мы используем цикл `for` для генерации десяти случайных чисел от 5 до 20. Функция `Randomize` инициализирует генератор случайных чисел, а функция `Random(16) + 5` генерирует случайное число от 5 до 20. Затем мы прибавляем каждое сгенерированное число к переменной `sum`, чтобы вычислить их сумму. Наконец, выводим результат суммы на экран с помощью процедуры `writeln`.

Примечание: В Pascal индексация массивов начинается с 1, поэтому мы используем `i := 1 to 10` в цикле `for`.

Надеюсь, это поможет! Если у вас возникнут дополнительные вопросы, пожалуйста, дайте мне знать.