Question

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

Answer 1

//Pascal ABC.NET v3.0 сборка 1111

Var
 a,i:integer;
 s:real;
begin
randomize;
 for i:=1 to 24 do
  begin
   a:=random(3,76);
   write(a:4);
   s:=s+a;
  end;
 s:=s/24;
 writeln;
 write('Res=',s);
end.