Var mass:array[1..12] of integer;
i:integer;
begin
randomize;
for i:=1 to 12 do begin
mass[i]:=163+random(28);
writeln('рост ',i,' =',mass[i]);
end;
end.
Пример работы:
рост 1 =167
рост 2 =168
рост 3 =186
рост 4 =167
рост 5 =170
рост 6 =170
рост 7 =173
рост 8 =175
рост 9 =168
рост 10 =179
рост 11 =174
рост 12 =188