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