Одномерный массив..

[uropb992]

Решается судьба зачета(((

Дан одномерный массив, необходимо составить программу обработки массива
Нужно вычислить:
1) максимальный отрицательный элемент массива
2) сумму элементов массива после последнего отрицательного элемента
Изменить порядок следования элементов так, чтобы вначале стояли положительные элементы, а затем отрицательные.

Помогите пожалуйста!!!!!

[uropb992]

uses crt;
const n=15;
var a:array[1..50] of integer;
i,j,k:byte;
x:integer;
s,b:real;
begin
clrscr;
randomize;
For i:=1 to n do begin;
a[i]:=random(100)-50;
writeln(a[i]);
end;
writeln;
For i:=1 to n do
if a[i]<0 then b:=a[i];
For i:=1 to n do
if a[i]<0 then
begin
if a[i]>b then
b:=a[i];
end;
writeln(b);
for i:=n downto 1 do
begin
if (a[i]<0) then
s:=s+a[i];
if(a[i]>0) then break;
end;
writeln;
for i:=1 to n do
if a[i]>0 then
begin
k:=k+1;
x:=a[i];
for j:=i downto k+1 do
a[j]:=a[j-1];
a[k]:=x;
end;
Writeln('Наименьший эл-нт= ',b);
writeln('сумма= ',s );
writeln('coptirovka:');
for i:=1 to n do
write(a[i]:3);
end.

[uropb992]

Не правильно находит сумму(( помогите найти ошибку!!

[evg_m]

s:=0;
for i:=n downto 1 do
begin
//if (a[i]<0) then
//s:=s+a[i];
if(a[i]>=0) then break
else 
s:=s+a[j];
end;

[Fantazerishka]

For i:=1 to n do begin
a[i]:=random(100)-50;
end;
min:=0;
For i:=1 to n do begin
if (a[i]<0) and (a[i]<min) then begin
min:=a[i];
end; end;
s:=0;
for i:=n downto 1 do begin
if a[i]<0 then begin
j:=i+1;
exit; end; end;
For i:=j to n do begin
s:=s+a[i];
end;

Хм вообщем вот проверь, правда щас без компилятора поэтому возможно где-то ендом ошибся или ещё где. Твой код мой мозг отказался воспринимать много лишнего и непонятного, в частности с типами косяк и если объявляешь массив в 50 элементов то было бы неплохо использовать их все, а ты юзаешь только 15 и т.п...