Pascal.

В классе 26 учащихся, вес учащихся от 55 до 85 кг, подсчитать количество легких учеников (до 60 кг) и количество тяжелых учеников (75+)

Var

i, p, k1, k2:integer;

begin

Randomize;

Writeln ('Вес учеников') ;

k1:=0; k2:=0;

for i:=1 to 26 do

begin

p:=Random (31) + 55;

Write (p:3) ;

if p<60 then Inc (k1)

else if p>=75 then Inc (k2)

end;

Writeln;

Writeln ('Легких - ', k1,', тяжелых - ', k2)

end.

Тестовое решение:

Вес учеников

75 72 62 85 84 60 79 65 78 67 68 72 56 76 57 59 73 56 82 59 79 57 62 85 57 58

Легких - 8, тяжелых - 9

Вариант со вводом данных:

var

i, p, k1, k2:integer;

begin

Writeln ('Введите вес учеников') ;

k1:=0; k2:=0;

for i:=1 to 26 do

begin

Read (p) ;

if p<60 then Inc (k1)

else if p>=75 then Inc (k2)

end;

Writeln ('Легких - ', k1,', тяжелых - ', k2)

end.

Тестовое решение:

Введите вес учеников

75 72 62 85 84 60 79 65 78 67 68 72 56 76 57 59 73 56 82 59 79 57 62 85 57 58

Легких - 8, тяжелых - 9