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

Написать программу в Pascal.

Question

Информатика

Гелюся

11 апреля, 04:26

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

Написать программу в Pascal.

+4

Ответы (1)

Знаете ответ на вопрос?

Лукреция · 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.

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

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

Написать программу в Pascal.