Подскажите, составить программу вычесления: суммы всех положительных элементов массива.

буду благодарна.

Question

Информатика

Мардарий

22 сентября, 02:55

Подскажите, составить программу вычесления: суммы всех положительных элементов массива.

буду благодарна.

+4

Ответы (1)

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

Ратмир · Answer 1

var

a:array[1 ... 1000]of integer;

i, sum:integer;

begin

readln (n) ;

sum:=0;

for i:=1 to n do begin

read (a[i]) ;

inc (sum, a[i]) ;

end;

writeln (sum) ;

end.

Подскажите, составить программу вычесления: суммы всех положительных элементов массива.буду благодарна.

Подскажите, составить программу вычесления: суммы всех положительных элементов массива.

буду благодарна.