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

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

Question

Информатика

Маюха

29 октября, 00:46

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

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

+3

Ответы (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.

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

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

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