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

перед последним end нужно добавить readln; если вылетает в консоли

Спасибо большое

Тогда вместо строчки sum:=sum+mas[i]; пишете if mas[i]>0 sum:=sum+mas[i];

Не доглядел

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.