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.
Вариант со вводом данных: 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.
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