Найти среднее время, затрачиваемое на выполнение домашнего задания учениками. В классе 24 человека, затрчаиваемое время случайно в диапазоне от 3 до 76 минут. На языке Паскаль составить программу

program zz1;

const n = 24; / / задаем количество элементов в массиве

var i, k, s:integer; / / задаем переменные целого типа

m:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (74) + 3;

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do / / организуем цикл, в котором переберем все элементы массива

begin s:=s + m[i]; k:=k + 1; end; / / получаем сумму и количество элементов

write (' среднее время, затрачиваемое на выполнение домашнего задания учениками = ', s/k:5:2); / / выводим ответ

end.