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

Question

Информатика: Найти сумму положительных элементов линейного массива целых чисел. размерность массива-10. заполнения массива осуществить с клавиатуры.

kskskdksks · Answer

Var mas:array[0..9] of integer; i,sum:integer;beginsum:=0;for i:=0 to 9 dobegin  readln(mas[i]);  sum:= sum+mas[i];end;writeln(sum);end....

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