Question

массив предназначен для хранения значений ростов 12 человек заполните массив с помощью клавиатуры и выведите массив в виде столбиков

Answer 1

===== PascalABC.NET =====

begin

 var n := 12;

 var a := ReadArrInteger(n);

 var mx := a.Max;

 var mn := a.Min;

 var k := mx - mn;

 a.Transform(p -> Round(9 * (p - mn) / k) + 1);

 for var i := 1 to 10 do

 begin

   var s := '';

   for var j := 0 to n - 1 do

     s += a[j] >= 11 - i ? '* ' : '  ';

   s.Println  

 end;

 (12*'* ').Println

end.