найти сумму элементов массива расположных между первым и последним положительным

[Julila]

в одномерном массиве состоящем из н елементов вычислить
1минимал. элемент
2 сумму элементов массива расположенын. между первым и последним положительным.
3
преоброзовать массив таким образом чтобы сначала распологались все элементы равные нулю , а потом все остальные.
я тут набросала немного. но не работает.
подправте пожалуйста
program LAB4_2;
USES CRT;
Const N=6;
var A:ARRAY [1..N] of integer;
b:array [1..n] of integer;
min,S:real;
Nmin,npp,nsp,i,j,k:integer;
Begin
CLRSCR;
For i:=1 to N do
Begin
Write ('A[',i,']=');
readln (A[i]);
end;
For i:=1 to N do
write (A[i],' ');
writeln;
min:=A[1];
Nmin:=1;
For i:=1 to n do
If A[i]<min then
begin
min:=a[i];
Nmin:=i;
end;
Writeln;

npp:=0;
for i:=1 to n do
if a[i]>0 then
begin
npp:=1;
break;
end;

nsp:=0;
for i:=npp+1 to n do
if a[i] > 0 then begin
nsp:=1;
break;
end;
if npp<>nsp then
begin
s:=0;
for i:=npp+1 to nsp-1 do
s:=s+a[i];
writeln('s (i>0 & ii>0) ', s);
end

else
writeln ('s not');

K:=0;
For i:=1 to n do
if a[i]=0 then
begin
k:=k+1;
b[k]:=a[i];
end;
for i:=1 to n do
if a[i]<>0 then
begin
k:=k+1;
b[k]:=a[i];
end;
for i:=1 to k do
write ( b[i], ' ');
writeln;
readln;
writeln ( ' min=',min:0:2);
readln
end.

[Z1000000]

npp:=0;
for i:=1 to n do
if a[i]>0 then
begin
npp:=i;
break;
end;
nsp:=0;
for i:=n downto npp+1 do
if a[i] > 0 then begin
 nsp:=i;
 break;
end;
if (npp=0) or (nsp=0) or (nsp-npp=1) then
 writeln ('s not')
else
 begin
 s:=0;
 for i:=npp+1 to nsp-1 do
 s:=s+a[i]; 
 writeln('s (i>0 & ii>0) ', s);
 end;

[Julila]

спсибо.
но сумма все равно не выводится как надо
у меня вышел такой результат

[dosha]

writeln('s (i>0 & ii>0) ', s:4:0);
где 4 кол-во знаков до запятой, где 0 колво знаков после

[Julila]

ВСЕ РАВНО НЕ ТО((

[XeruH]

Что именно не то то? не так считает? не так выводит?

[Julila]

ответ суммы выходит не верным и не понятным..
4.800000000000000000000Е
хотя я поставила значения вывода количества знаков

[XeruH]

Сообщение от Julila

ответ суммы выходит не верным и не понятным..
4.800000000000000000000Е
хотя я поставила значения вывода количества знаков

хм.. выложи свой код.. только с тегом

[Son Of Pain]

Убери там везде real, замени на integer.

[Julila]

Спасибо. теперь все отлично)