Массив гистограмма - Pascal - Ответ 380113

program vertical_histogram;
 
const
     SIZE = 10;
type
   ArrType = array[1..SIZE] of integer;
//-----------------------------------------------------------------------
procedure MaxMin(arr_param: ArrType; var max_val: integer; var min_val: integer);
var
   i: integer;
begin
     max_val:= arr_param[1];
     min_val:= arr_param[1];
     for i:= 2 to SIZE do
     begin
         if max_val < arr_param[i] then max_val:= arr_param[i];
         if min_val > arr_param[i] then min_val:= arr_param[i];
     end;
end;
//-------------------------------------------------------------------------
var
   arr: ArrType;
   i: integer;
   max: integer;
   min: integer;
begin
     Randomize;
     for i:= 1 to SIZE do arr[i]:= Random(20)+1;
     MaxMin(arr, max, min);
 
     while(max >= min) do
     begin
         for i:= 1 to SIZE do
         begin
              if(max <= arr[i]) then Write('   =')
              else Write('    ');
         end;
         Dec(max);
         WriteLn;
     end;
 
     for i:= 1 to SIZE do Write('   ', i);
     WriteLn;
     ReadLn;
end.