Очень нужно помощь, не могу ни чего придумать, нужно срочно сдавать я ни как не...

Question

Очень нужно помощь, не могу ни чего придумать, нужно срочно сдавать я ни как не получается, помогите пожалуйста. Необходимо сделать в паскале В последовательности чисел p1,p2,......p20 вычислить сумму первых четырех положительных чисел,нужно сделать через массив но не пойму как

Comments

Хм... если Вы даже этого не можете понять...

---

В чем именно помощь требуется? Написать за Вас задачу?

---

Вообще ничего-ничего не понимаете?

Answer 1

Const
  n=20;
var
  p:array[1..n] of integer;
  i,k,s:integer;
begin
  Randomize;
  Writeln('Последовательность чисел');
  for i:=1 to n do
  begin
    p[i]:=Random(51)-25;
    Write(p[i],' ')
  end;
  Writeln;
  k:=0; s:=0; i:=1;
  repeat
    if p[i]>0 then begin s:=s+p[i]; Inc(k) end;
    Inc(i);
  until (k=4) or (i>n);
  Writeln('Сумма первых четырех положительных чисел равна ',s)
end.
   
Тестовое решение:
Последовательность чисел
-12 6 -21 5 -10 11 19 19 19 17 21 -4 -14 12 2 0 -20 10 17 -14
Сумма первых четырех положительных чисел равна 41

Comments

И экран будет висеть до нажатия любой клавиши

---

Пожалуйста. Было бы очень странно, если бы не получилось...

---

А скайп заводите... по нему вопросы решаются быстро и эффективно, потому что он умеет передавать картинку с рабочего стола., да и голос поддерживает.

---

Есть такие программы, но те, которые строят хорошо, стоят приличных денег.

---

А те, которые бесплатные, строят всякую ерунду

---

Большинство программ работает иначе - по блок-схеме строят коды. И вообще, если вопросы есть, пишите в личку, а то получается спам.

---

Добавил блок-схему

Answer 2

Держите
........................................

Comments

Да.... только зачем массив из 1000 чисел, если их 20? И зачем лопатить все 20 чисел, когда надо найти сумму четырех первых положительных?

---

Зато, как говорится, быстро...)))))

---

Лень присуща всем Енотам )) Морочиться, искать наиболее рациональное решение...

---

Вообще-то в данном случае оно на поверхности лежит.

---

"And now Rocky Raccoon he fell back in his room..." (c)