Найти сумму положительных элементов линейного массива целых чисел на языке програмирования Паскаль

в начале программы объявляются целые переменные sum и одномерный массив целых чисел m: array [1 ... 10] of integer.

Question

Информатика

Ленуся

17 мая, 06:00

Найти сумму положительных элементов линейного массива целых чисел на языке програмирования Паскаль

в начале программы объявляются целые переменные sum и одномерный массив целых чисел m: array [1 ... 10] of integer.

+3

Ответы (1)

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

Алина · Answer 1

Program al;

const n=10;

var i, sum:integer;

m:array[1 ... n] of integer;

begin

writeln ('wwedite massiv=') ;

for i:=1 to n do

readln (m[i]) ;

sum:=0;

for i: = 1 to n do

if m[i]>0 then

sum:=sum+m[i];

writeln ('sum=', sum) ;

readln;

end.