Курсовая работа: Техническое задание на создание автоматизированных систем

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" ');

К-во Просмотров: 763
Бесплатно скачать Курсовая работа: Техническое задание на создание автоматизированных систем