Pascal. В классе 26 учащихся, вес учащихся от 55 до 85кг, подсчитать количество легких...

Question

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

Answer 1

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)<br>    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)<br>    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