График температур. Подправить код из turbo (не знаю где писать в PascalABC или PascalABC.net) - Pascal ABC - Ответ 4169658

uses crt,graph;
const n=31;
      {массив - константа, можно ввести с клавиатуры}
      a:array[1..n] of integer=(-10,-15,-9,-8,-5,-8,-6,-2, 0,-1,
                                  2,  4, 6, -2, 4, 6, 8, 8,10, 6,
                                  9, 11, 9, 8, 6, 9,12,13, 9, 8, 5);
var gd,gm,x0,y0,i,max:integer;
    mx,my,x:real;
    s:string;
begin
gd:=0;
initgraph(gd,gm,'');
x0:=40;{начало координат}
y0:=getmaxY div 2;
mx:=(getmaxX-40)/n;{массштаб по оси Х}
max:=abs(a[1]);
for i:=1 to n do
if abs(a[i])>max then max:=abs(a[i]);{найдем максимальный модуль}
my:=(y0-20)/max;{масштаб по оси У}
line(x0,y0,getmaxX-2,y0);{ось дней}
outtextXY(getmaxX-20,y0-15,'D');
for i:=1 to n do
 begin
  line(x0+round(mx*(i-1)),y0-3,x0+round(mx*(i-1)),y0+3);{засечки}
  str(i,s);
  outtextXY(x0+round(mx*(i-1)+3),y0+15,s);{подписи}
 end;
line(x0,y0+round(my*max),x0,y0-round(my*max));{ось температур}
outtextXY(x0+5,y0-round(my*max),'t');
for i:=-max to max do
 begin
  line(x0-3,y0+round(my*i),x0+3,y0+round(my*i));
  str(i:3,s);
  outtextXY(x0-30,y0-round(my*i),s);
 end;
for i:=2 to n do{линия графика}
 begin
  if (a[i-1]>=0)and(a[i]>=0) then{если соседние точки выше ноля}
    begin
     setcolor(12);
     line(x0+round((i-2)*mx),y0-round(a[i-1]*my),
     x0+round((i-1)*mx),y0-round(a[i]*my));
    end
  else if(a[i-1]<=0)and(a[i]<=0) then{ниже ноля}
     begin
      setcolor(9);
      line(x0+round((i-2)*mx),y0-round(a[i-1]*my),
      x0+round((i-1)*mx),y0-round(a[i]*my));
     end
  else if a[i-1]*a[i]<0 then{по разные стороны}
   begin
    x:=abs(a[i-1])/(abs(a[i-1])+abs(a[i]));{вычисляем ординату пересечения с осью Х}
    if a[i-1]<0 then{если левая точка ниже}
     begin
      setcolor(9);
      line(x0+round((i-2)*mx),y0-round(a[i-1]*my),x0+round((i-2)*mx)+round(x*mx),y0);
      setcolor(12);
      line(x0+round((i-2)*mx)+round(x*mx),y0,x0+round((i-1)*mx),y0-round(a[i]*my));
     end
    else{если првая ниже}
     begin
      setcolor(12);
      line(x0+round((i-2)*mx),y0-round(a[i-1]*my),x0+round((i-2)*mx)+round(x*mx),y0);
      setcolor(9);
      line(x0+round((i-2)*mx)+round(x*mx),y0,x0+round((i-1)*mx),y0-round(a[i]*my));
     end
   end
 end;
for i:=1 to n do{рисуем точки - кружочки}
 begin
  if a[i]<0 then setcolor(9)
  else if a[i]=0 then setcolor(15)
  else setcolor(12);
  circle(x0+round((i-1)*mx),y0-round(a[i]*my),2);
 end;
readln
end.