очень нужна помощь в построении блок-схемы....

[spankyham]

Дан массив чисел X=(x1,x2,...,xn). Найти сумму квадратов отрицательных элементов массива.

program rgr;
uses crt;
var a: array[1..1000] of integer;
    i,otr,sum,n: integer;
begin
     clrscr;

     repeat
     textcolor(11);
     writeln('Vvedite N>1:');
     readln(n);
     until N>1;

     randomize;
     for i:=1 to n do
     a[i]:=random(10)-5;

     for i:=1 to n do
     begin
     if a[i]<0 then
      begin
      otr:=sqr(a[i]);
      sum:=sum+otr;
      end;
     end;

     for i:=1 to n do
     write(a[i]:4);
     writeln('');
     textcolor(6);
     writeln('symma kvadratov vsex otricatelnix elementov =',sum);
     readkey;
end.

[pavel42]

вот посматри...с помошью проги Avtoshema )

[Otre4eHHbIu]

на будущее - сама программа

[pavel42]

http://dump.ru/file/2725354
вот залил !

[spankyham]

спс всем за помощь! надеюсь эта прога правильно строит схемы......