Очень надо Саша очень любит кататься на самокате - вопрос №13503957 от Lenaclati 30.01.2020 10:53

Question

Информатика: Очень надо Саша очень любит кататься на самокате на памп-треке(Памп-трек — специальная велосипедная трасса, представляющая собой чередование ям, кочек и контруклонов и не содержащая ровных участков). Но в зависимости от ширины горок, ему приходится выбирать самокаты разной длины(чтобы не застрять на вершине Саше определить ширину наименьшей горку, чтобы выбрать правильный самокат, т.е. на выделенном участке трека была бы точка, которая находилась бы строго выше начала и строго выше конца выделенного

Lenaclati · Answer

Var n, i, growth, growth_girls, growth_boys, count_boys, count_girls: integer;
begin
writeln('Введите количество учеников в классе');
read(n);

growth_girls := 0;
growth_boys := 0;
count_boys := 0;
count_girls := 0;
for i := 1 to n do
begin
read(growth);
if (growth < 0) then
begin
    growth_boys := growth_boys - growth;
    count_boys := count_boys + 1;
end
else
begin
    growth_girls := growth_girls + growth;
    count_girls := count_girls + 1;
end;
end;

if (count_boys = 0) then
writeln('В классе нет мальчиков')
else
writeln('Средний рост мальчиков: ', (growth_boys / count_boys):0:2);

if (count_girls = 0) then
writeln('В классе нет девочек')
else
writeln('Средний рост девочек: ', (growth_girls / count_girls):0:2);
end.