Вычислить сумму положительных чисел массива. Написать программу в Pascal.

Question

Вычислить сумму положительных чисел массива.
Написать программу в Pascal.

Answer 1

Program summ_pol_chicel;var a: array [-100..100] of integer;i, b: integer;beginFor i:=1 to 10 do       Readln (a[i]);b := 0;For i:=1 to 10 dobegin      if a[i] > 0 then      b := b+ a[i];end;writeln(b);end.      

Comments

Жалко только, что разметка сбилась. Я же аккуратно все это оформлял:(

---

Ничего страшного. Спасибо большое :)

---

Это значения, который могут принимать числа из массива

---

которые*

---

Или это не так работает:)? Я пока ток тренюсь:)

---

Ну да, мой косяк, действительно. Но вроде на работоспособности проги это никак не сказывается, поэтому пусть будет:)