Создать диаграмму на основе одномерного массива - Pascal - Ответ 533276

uses crt;
const n=15;
var a:array[1..n] of integer;
 nechet,k,c,i,s,q:integer;
procedure diagramma;
 var i,x1,x2,y1,y2,dx,q,k:integer;
     ky:real;
     max,min:integer;
begin
 window(1,3,80,25);
 textbackground(0);
 clrscr;
 max:=a[1];min:=a[1];
 for i:=1 to n do
   begin
    if a[i]>max then max:=a[i];
    if a[i]<min then min:=a[i];
   end;
 if max>abs(min) then  ky:=9/max else ky:=9/abs(min);
 dx:=(60-n) div n;
 x1:=1;
 y2:=13;
 for i:=1 to n do
  begin
   x2:=x1+dx;
   k:=i mod 8;
   if k in[0,7] then k:=k+3;
   if a[i]>=0 then
    begin
     y1:=y2-round(a[i]*ky);
     window(x1,y1,x2,y2);
     textbackground(k);
     clrscr;
     write(a[i]:3);
    end
   else
    begin
     y1:=y2-round(a[i]*ky);
     window(x1,y2+1,x2,y1+1);
     textbackground(k);
     clrscr;
     gotoXY(1,abs(round(a[i]*ky)));
     write(a[i]);
    end;
  x1:=x2+1;
 end;
end;
BEGIN
clrscr;
randomize;
for i:=1 to n do
 begin
  a[i]:=random(200)-100;
  write(a[i]:4);
 end;
diagramma;
readkey;
end.