Question

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

Answer 1

//PascalABC.NET
//Версия 3.3, сборка 1611
begin
write(ReadArrInteger(10).Where(x->x>0).Sum());
end.

Answer 2

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.