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

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

Question

Информатика

Касьян

29 марта, 09:55

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

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

+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.

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

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

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