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

Формировать десять случайных чисел ,от 5до 20,вычислить их сумму. паскаль.
Гость
Ответ(ы) на вопрос:
Гость
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.
Гость
// 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы