Количество классов в школе изучающих информатику 14. во всех классах случайное количество учащихся не менее 16, но не более 35. во всех классах 1 урок в неделю, но если в классе 16 учеников или больше, то класс делится на две группы: 1)посчитать сколько всего учеников изучают информатику? 2)сколько часов информатики в неделю? в паскале.
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.