Учебник S9 (стр. 53). 1 На какие виды делятся инструменты в программе SketchUp
Make
2. Какие инструменты есть в инструментах рисования? Каковы и
назначення? 3. Каково назначение инструмента Круг?
4. Какие инструменты относятся к инструментам монификан?
5. Каково назначение инструмента Вдавить Вытянуть?
for i := 1 to n do
read (a[i]);
i := 1;
while (i <= n) and (a[i] <= 0) do
i := i + 1;
if i > n then writeln ('0')
else
begin
k := i;
i := i + 1;
while (i <= n) and (a[i] <= 0) do
i := i + 1;
if i > n then writeln ('0')
else
begin
p := i;
for i := k + 1 to p - 1 do
s := s + a[i];
writeln(s:0:3);
end;
end;
Что я сделал: после нахождения первого элемента не надо идти в конец и с конца перебирать в другую сторону. Надо просто продолжить в том же направлении с того же места. И надо не забыть найденное значение сохранить в P - у Вас она вовсе не инициализировалась.