Страница 164 §3.5 номер 14, ГДЗ по информатике за 8 класс к учебнику Босовой

Номер 14. Напишите программу, которая генерирует 10 случайных чисел в диапазоне от 1 до 20, выводит эти числа на экран и вычисляет их среднее арифметическое.

program z14;

var

i, s, x: integer;

begin

s := 0;

for i := 1 to 10 do

randomize;

for i := 1 to 10 do

begin

x := random(20) + 1;

s := s + x;

writeln(x);