Количество классов в школе изучающих информатику 14. Во всех классах случайное количество...

Question

Количество классов в школе изучающих информатику 14. Во всех классах случайное количество учащихся не менее 16, но не более 35. Во всех классах 1 урок в неделю, но если в классе 16 учеников или больше, то класс делится на две группы: 1)посчитать сколько всего учеников изучают информатику? 2)сколько часов информатики в неделю? В Паскале.

Answer 1

Program z1;

var f: array[1..14] of integer;

   sum,i:integer;

begin

randomize;

for i:=1 to 14 do

 begin

  f[i]:=random(16,35);  

  writeln(f[i],' человек',' в',' ',i,' классе');

  Sum:=Sum+f[I];

 end;

 writeln('----------------------');

 writeln ('Всего человек:',sum);

 writeln ('Нужно уроков:',14*2); // делим на 2 группы,т.к во всех классах >16 человек.

 writeln ('Нужно часов:',(14*2)*0.75); // урок длится 3/4 часа (45 минут).

end.