Составьте программу нахождения суммы положительных значений массива. Дан массив состоящий из 15 элементов. Значение массива произвольные числа.

Question

Информатика

Исидор

2 сентября, 08:43

Составьте программу нахождения суммы положительных значений массива. Дан массив состоящий из 15 элементов. Значение массива произвольные числа.

+3

Ответы (1)

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

Кируся · Answer 1

Const

nmax=5; (любое число можешь поставить)

type

mas = array [1 ... nmax] of integer;

var

A:mas;

sum, n:integer;

begin

readln (n) ;

sum:=0;

for i:=1 to n do

if (A[i] > 0) then sum:=sum+A[i];

writeln ('Summa=', sum) ;

end.