program GRAP;
Uses Graph;
Const n=7;{размер матрицы}
Var xmax : Real;{Максимальный элемент в матрице}
I,J : Byte; {Переменные для циклов}
G, M : Integer;{переменные для графического режима}
arr:Array [1..n] of Real;{действительный массив их семи элементов}
Stroka : String;{Промежуточная строка для преобразований}
Xlv, Ylv, Xpn, Ypn : Integer; {координаты окна вывода диаграммы}
Begin
{Ввод массива}
for i:=1 to n do begin
write('[',i,']=');
Readln(arr[i]);
end;
{Нахождение максимального элемента в массиве}
xmax:=arr[1];
for i:=2 to n do
begin if arr[i] > xmax then xmax := arr[i]; end;
{Инициализация графического режима}
G := detect; M := 0;
initgraph(G, M, '');
{ЗаДание начальных параметров для отображения графика}
Xlv := 50; Ylv := 50; Xpn:= GetMaxX-100; Ypn:= GetMaxY-50;
i:= 0; {номер столбца при выводе}
{Выводим масштабированные столюбцы}
for j:=1 to n do
begin
{Установка цвета и заливки}
setcolor(i mod 16 + 1); setfillstyle(1, i mod 16 + 1);
{очередной столбец}
bar(round(Xlv+i*(Xpn-Xlv)/n), Ypn,x{Вывод прямоугольника масштабированного отностиельно максимального элемента массива}
round(Xlv+(i+1)*(Xpn-Xlv)/n), round(Ypn-(Ypn-Ylv)/xmax*arr[j]));
i:= i + 1;{Увеличиваем счетчик колонок диаграммы}
{укажем, какому цвету какая величина соответствует(Выводим легенду)}
bar(getMaxx-70, 50+(i-1)*20, getMaxx-50, 50+(i-1)*20+15);{Вывод квадратика с цветом в легенду}
str(arr[j]:5:1, stroka);
outtextxy(getMaxx-40, 50+(i-1)*20+8, stroka);{Вывод текста в легенду}
end;
readln; closegraph;{Завершение работы с графическим режимом}
End.