Проверьте, пожалуйста, алгоритм

[wordsword]

Проверьте, пожалуйста, алгоритм.

//Дан массив A[1:n]. Написать постановку задачи, алгоритм и программу    
//для вычисления суммы элементов массива, расположенных между первым и 
//последним отрицательными элементами (включительно).

program between;
const lmax=20;
type mass=array[1..lmax] of real;
var a: mass;
n, i, n1, np: integer;
s: real;
begin
repeat
      writeln('введите n');      read(n);
until (n>0) and (n<=lmax);
writeln('введите ',n:3,' элементов');
for i:=1 to n do
    read(a[i]);
n1:=0; np:=0; 
for i:=1 to n do
    if a[i]<0 then
    begin
        if n1=0  then 		        
		n1:=i;
	np:=i
    end;
if n1=0 then
	writeln ('нет отрицательных')
else
	if n1=np then
		writeln ('один отрицательный элемент', a[n1])
	else
		begin
		s:=0;
		for  i:=n1 to  np   do
			s:=s+a[i] ;
		writeln('s=',s:10:5)

		end
end.

и вот, сообственно, алгоритм

[p51x]

        if n1=0  then 		        
		n1:=i;
	np:=i

Второе присваение тоже под условием идет.

else
	if n1=np then

Не к тому ифу.

[Aleksandr H.]

На блоксхеме вроде цикл FOR [a=1,n] не так должен быть нарисован. Получается будто с условия a(i)<0 есть 3 выхода: да, нет, неопределенный.

[digitalis]

Ну это, видимо, женская логика : "и не то чтобы да, и не то чтобы нет"

[wordsword]

Сообщение от Aleksandr H.

На блоксхеме вроде цикл FOR [a=1,n] не так должен быть нарисован. Получается будто с условия a(i)<0 есть 3 выхода: да, нет, неопределенный.

А как выйти после безусловного цикла окончания перебора на продолжение программы графически?
И да, заранее прошу прощения, если что не так. Обучаюсь онлайн на курсере, проверить некому. Рисуйте прям на алгоритме)). СПАСИБО.

[p51x]

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

А как выйти после безусловного цикла окончания перебора на продолжение программы графически?

А где ж он безусловный? 1<= i <= n вполне себе условие.

[wordsword]

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

А где ж он безусловный? 1<= i <= n вполне себе условие.

Придется еще подумать((( ... и порисовать.

[Aleksandr H.]

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

А как выйти после безусловного цикла окончания перебора на продолжение программы графически?

блок-схема for
http://tat67183862.narod.ru/image35.jpg

[p51x]

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

Придется еще подумать

Помогут задачи типа - написать один и тот же алгоритм с помощью трех типов циклов. Ну или знакомство с языками, где фор записывается полностью.

[wordsword]

Сообщение от Aleksandr H.

блок-схема for
http://tat67183862.narod.ru/image35.jpg

Thanks...