Формировать десять случайных чисел ,от 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.