Помогите!!Пожалуйста!!даю 50 баллов!!! Написать программу которая просит ввести 10 чисел...

Question

Помогите!!Пожалуйста!!даю 50 баллов!!!

Написать программу которая просит ввести 10 чисел и находит сумму всех чисел,которые больше 0 из ряда введенных
Для pascal ABC

Comments

Все числа вводятся в одной строке или каждое в своей?

---

Каждое в своей

Answer 1

Program abc;
var a, summa:integer;
begin
summa:=0;
writeln('Введите 10 чисел');
for i:integer:=1 to 10 do begin
 readln(a);
if a>0 then summa:=summa+a;
end;
writeln(summa)
end.

Answer 2

// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
var a:= ReadArrInteger(10);
Writeln(a.Where(t->t>0).Sum);
end.
Пример:
0
12
2
3
5
6
1
2
5
6
42