Алгоритм для программы

[Kostik777]

Здравствуйте всем кто сейчас читает моё сообщение!!!Прошу посадействовать мне в написании алгоритма,у меня кратчайшие сроки по сдачи заданий по паскалю(тобишь после завтра)...Мне нужен алгоритм к этой программе составленный в ворде!!!=>
Program semestrovoe4;
Uses crt;
Var
Min,Sum,R: Real;
M: array [1..100] of Real;
i,k,n: Integer;
Begin
Clrscr;
ReadLn(n);
randomize;
For i:=1 to n do
Begin
r:=Random(10)+Random;
m[i]:=r-5;
End;
WriteLn(' Massiv iz ',n,' elementov',#10#13);
For i:=1 to n do
Write(m[i]:5:2,' ');
WriteLn;
Min:=Abs(M[1]);
Sum:=0;
for i:=1 to n do
Begin
If Abs(M[i])<Min then Min:=Abs(M[i]);
If M[i]=0 then k:=i else k:=n+1;
End;
for i:=k to n do
Sum:=Sum+M[i];
WriteLn('Sum=',Sum:5:2,' min=',min:5:2);
For i:=1 to n div 2 do
If i mod 2=1 then
Begin
R:=M[i];
M[i]:=M[n div 2+i];
M[n div 2+i]:=R;
end;
WriteLn(' Uporydochennyy massiv iz ',n,' elementov',#10#13);
For i:=1 to n do
Write(m[i]:5:2,' ');
WriteLn;
ReadLn;
end.
Заранее ОГРОМНОЕ СПАСИБо,тем кто услышал мои просьбы!!!

[Базиля]

Алгоритм в смысле блок-схема?
Пиши в личку свою аську, помогу

[Alice_90]

срочно помогите плиииз! нужна блок-схема!!!! может кто нибудь хорошо разбирается в BS1.0?? если кто нить отзовется помочь пишите на мыло a.l.i.c.e_90@mail.ru

programm xxx;
uses crt;
const n=15;
var a:array[1..n] of integer;
i,m:integer;
begin
clrscr;
randomize;
m:=0;
for i:=1 to n do
begin
a[i]:=random<40>-20;
writeIn<a[i]>;
if a[i]>0 then m:=m+1;
end;
writeIn<’m=’ ,m>;
reading;
end.