Столбчатая диаграмма - Pascal - Ответ 767246

uses Crt;
const
DiagTop = 10;
DiagBot = 25;
DiagLeft = 20;
DiagRight = 70;
var
N,t,i, j, SizeX, SizeY, M,y, X : Integer;
 dX, dY, MaxData: Real;
A: array[1..10] of Integer;
 
begin
ClrScr;
write('n=');
readln(n);
writeln('vvedite elementy');
for i:=1 to n do
read(a[i]);
writeln('massiv');
for i:=1 to n do
writeln(a[i]);
for i:=1 to n do
 
 for j:=2 to n do
if a[j]>a[j-1] then begin
t:=a[j];
a[j]:=a[j-1];
a[j-1]:=t;
end;
writeln('sortirovka');
for i:=1 to n do
write(a[i]);
readln;
 
 
GoToXY(28,1);
WriteLn('Диаграмма  ');
{рисуем оси}
  for i:=DiagTop to DiagBot do begin GoToXY(DiagLeft,i);Write(Chr(179)); end;
  for i:=DiagLeft to DiagRight do begin GoToXY(i,DiagBot);Write(Chr(196)); end;
  GoToXY(DiagLeft,DiagBot);
  Write(Chr(192));
 
  {размеры диаграмы}
  SizeY := DiagBot - DiagTop;
  SizeX := DiagRight - DiagLeft;
 
  {ищем максимальный осадок}
  MaxData := 0;
  for i:=1 to N do if MaxData < A[i] then MaxData := A[i];
 
  {масштабные коэффициенты}
  dY := SizeY/MaxData;
  dX := SizeX/N;
 
  for i:=1 to N do begin
    M := Round((-A[i]*0.95+MaxData)*dY + DiagTop);
    X := Round((i-0.5)*dX)+DiagLeft;
 
    GoToXY(X-3,M-1);
    Write(a[i]);      {значение величины}
 
    {столбики}
    for j:=M to DiagBot-1 do begin
      GoToXY(X,j);
      Write(Chr(219));
    end;
    GoToXY(X,DiagBot);
    Write(Chr(223));
 
    {шкала Х}
    GoToXY(X,DiagBot+1);
    Write(i);
  end;
  GoToXY(1,1);
  ReadLn; {чтобы посмотреть}
end.