Курсовая работа: Техническое задание на создание автоматизированных систем
if i=10 then
begin
z:=z+2;
x:=1;
end;
gotoXY(q*x,z);
read(b[i]);
x:=x+1;
end;
writeln;
min:=32000;
for i:=2 to n do
begin
s:=0;
p:=0;
for k:=i-1 downto 1 do
p:=p+b[k];
for l:=i+1 to n do
s:=s+b[l];
v:=abs(s-p);
if v<min then
begin
min:=v;
ind:=i;
end;
end;
writeln('Индекс элемента, удовлетворяющего условие: ',ind);
writeln;
writeln('Для возврата в главноe меню нажмите "ENTER" ');