Question

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

Answer 1

var mas:array[0..9] of integer; i,sum:integer;
begin
sum:=0;
for i:=0 to 9 do
begin
  readln(mas[i]);
  sum:= sum+mas[i];
end;
writeln(sum);
end.

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

Не доглядел