Построение диаграмм

Программа

uses graphABC;

var

a: array[1..20] of integer;

n, max, h, x, y1, y2: integer;

m: real;

begin

write('Количество n =');

readln(n);

writeln(n);

writeln('Элементы массива');

for var i := 1 to n do begin

read(a[i]);

write(a[i], ' ');

end;

max := a[1];

for var i := 2 to n do

if a[i] > max then max := a[i];

h := trunc(WindowWidth / (2 * n + 1));

m := WindowHeight / max;

x := h;

y1 := WindowHeight;

for var i := 1 to n do begin

Brush.Color:=clrandom;

y2 := y1 - trunc(a[i] * m);

Rectangle(x, y1, x + h, y2);

x := x + 2 * h;

end;

end.